Probleem script in 2007

[DJ.Funny]

Beste kenners,

Sinds kort overgestapt van 2003 naar 2007, nu heb ik een probleem. Oude bestanden uit 2003 (met daarin een macro die tijdens het openen gegevens uit een database haalt) kan ik gewoon openen. Maar als ik een nieuw document aanmaak in 2007 met daarin dezelfde macro krijg ik de volgende foutmelding:

Fout 9 tijdens uitvoer

Het subscript valt buiten het bereik

Hieronder het betreffende script:

Private Sub Workbook_Open()

Dim qt As QueryTable
Dim sODBCString As String
sODBCString = "ODBC;DSN=xxxxxx;DB=MVLMAIN;SRVR=MVSERV;UID=XXXX;PWD=XXXX;"

Set qt = Sheets("Voorblad").QueryTables("QT_adm")
qt.Connection = sODBCString
qt.Refresh False
Sheets("Voorblad").Activate
Range("B2").Select

End Sub

Ik heb geen idee hoe ik dit script moet aanpassen?? Weet iemand van jullie het??

Groet Dirk

 

[DCWDPT]

Ik vermoed dat de ODBC-koppeling het probleem is. Die moet je eens nakijken.

 

[DJ.Funny]

Die werkt gewoon. Als ik een 2003 bestand neem met de ODBC koppeling dan werkt deze. Een 2007 bestand met dezelfde werkt niet???

 

[DJ.Funny]

Foutmelding wordt gegeven op regel:

Set qt = Sheets("Voorblad").QueryTables("QT_adm")

(QueryTable heet ook QT_adm)