timeout på ADO forbindelser

Hej Alle
Jeg har en stump kode, hvor jeg har det problem at jeg får en timeout-fejl efter 30 sek. på trods af at jeg har defineret en anden timeout.

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

    AdoConn.ConnectionString = "DSN=motorvej;UID=sa;PWD=eiffeltårn;"
    AdoConn.ConnectionTimeout = 60000
    AdoConn.Open

    ssql = "exec smartSP '020711', '020712'"
   
    Set AdoRs = AdoConn.Execute(ssql)
    AdoRs.Open

    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
</motherfucker kode>


Er der nogen der har en ide til hvad der går galt? - Jeg har også prøvet at definere timeout'en på ODBC-driveren. - uden held.