stored proceder via ADO

Hej Alle
Jeg har et lille problem.
Jeg klader en SP i mit vb60 projekt, men jeg løber ind i en timeout hele tiden. Koden er:

----

    Dim AdoConn As Object
    Dim AdoRs As Object
    Dim I As Integer
   
    Set AdoConn = CreateObject("ADODB.Connection")

    AdoConn.ConnectionString = "DSN=highway;UID=sa;PWD=skrivebordslampefod;"
    AdoConn.ConnectionTimeout = 999999999
    AdoConn.Open
   
    ssql = "smartting parm1, parm2"
    Set AdoRs = AdoConn.Execute(ssql)


    Do Until AdoRs Is Nothing


        While Not AdoRs.EOF


            For I = 0 To AdoRs.Fields.Count - 1
                Debug.Print AdoRs.Fields(I)
            Next I
            AdoRs.MoveNext
        Wend
        Set AdoRs = AdoRs.NextRecordset
    Loop

------

Gør jeg noget forkert? - og kan jeg trimme min kode lidt?