How works with component? for example Dim Con As New Connection *<% Dim Quere, sChet As String Dim Row, Col, i As Integer Dim $Result As Result Dim Con As New Connection %> * -- ____ Alex.