Wie richte ich eine ADODB-Verbindung zu SQL Server 2008 in Microsoft Access 2010 ein?

Zuerst müssen Sie sicherstellen, dass SQL Native Client installiert ist. Referenz

SQL-Server 2008

Standardsicherheit

Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername;
Pwd=myPassword;

Vertrauenswürdige Verbindung

Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;
Trusted_Connection=yes;

Verbindung zu einer SQL Server-Instanz herstellen Die Syntax zum Angeben der Serverinstanz im Wert des Serverschlüssels ist für alle Verbindungszeichenfolgen für SQL Server gleich.

Provider=SQLNCLI10;Server=myServerName\theInstanceName;Database=myDataBase;
Trusted_Connection=yes;

Quelle

Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim sConnString As String
Dim recordsAffected as Long

'Create connection string
sConnString = "Provider=sqloledb; Server=LAPTOPX; Database=HomeSQL; Trusted_Connection=True;"

'Open connection and execute
conn.Open sConnString

'Do your query
With cmd
  .ActiveConnection = conn
  .CommandType = adCmdText
  .CommandText = "Select ...;"
  .Execute recordsAffected 'Includes a return parameter to capture the number of records affected
End With

Debug.Print recordsAffected 'Check whether any records were inserted

'Clean up
If CBool(conn.State And adStateOpen) Then conn.Close
Set cmd = Nothing
Set conn = Nothing