Quello che hai postato non č il codice di apertura della
connessione, deve essere qualcosa simile a :
codice:
strConnect = "Driver={SQL Server}; Server=myServer; " & _
                     "Database=pubs; Uid=sa; Pwd="
        Set cn = rdoEnvironments(0).OpenConnection(dsName:="", _
                                              Prompt:=rdDriverNoPrompt, _
                                              ReadOnly:=False, _
                                              Connect:=strConnect)

Comunque devi impostare :

rdoEngine.rdoDefaultCursorDriver = rdUseODBC
codice:
' Commenta questa istruzione
' File_WK.CursorDriver = rdUseIfNeeded

'Inserisci questa istruzione
rdoEngine.rdoDefaultCursorDriver = rdUseODBC

File_WK = rdoEnvironments.Open .........
Ciao,