Por ejemplo con ADO:
Código [Seleccionar]
Dim cn as New ADODB.Connection
cn.Open "Driver={SQL Server};Server=MyServerName; Database=myDatabaseName; Uid=myUsername; Pwd=myPassword;"