Ti consiglio di non utilizzare ODBC perchè non è ottimmizzata al massimo...tutti dicono di usare ADO
Prova a fare così:
Includi l'oggetto ADODB
Progetto > Riferimenti > Microsoft ActiveX Data Object 2.8 Library
(se non hai la 2.8 usa le precedenti)
Poi usa il seguente codice:
codice:
Dim conn As New ADODB.Connection
conn.Open "driver={Sql Server};Server=nomeServerConilDBSQL;uid=nomeUtente;psw=;database=nomeDB;"
Dim rs As New ADODB.Recordset
rs.Open "SELECT *FROM ....", conn
....
Non l'ho mai provato con SQLServer ma vedi un po te