ADO to Link SQL Server Table

[jonh]

http://www.access-programmers.co.uk/...d.php?t=156294

If you just want to read data

Private Sub Command0_Click()
    Const MYDB = "MY_SQL_DATABASE"
    Const MYTBL = "MY_SQL_TABLE"
    
    Dim conn As New ADODB.Connection
    conn.Open "DSN=" & MYDB & ";database=" & MYDB & ";Trusted_Connection=Yes;"
    
    With New ADODB.Recordset
        Set .ActiveConnection = conn
        .Source = "SELECT * FROM " & MYTBL
        .Open
        Debug.Print .RecordCount
        .Close
    End With
    conn.Close
End Sub