und nochmal Access + SQL Server

[Seidl]

Const DB = "DeineZieldatenbank"

dim Cn as ADODB.Connection
dim Rs as ADODB.Recordset

set Cn = new ADODB.Connection
With Cn
.CursorLocation = adUseClient
.Provider = "SQLOLEDB"
.ConnectionString = DB
.Open
End With
set Rs = new ADODB.Recordset
Rs.Open Source:="DeineTabelle", ActiveConnection:=Cn
'Deine Befehle
Rs.Close
Cn.Close

Habs noch nicht versucht, sollte aber soweit mir bekannt funktionieren.