Visual Basic - Base de Datos

hola, necesito una sentencia para conectarme a una Base de Datos
en SQL Server, gracias.

Prueba con esto:
Public cnBase As ADODB.Connection
Set cnBase = New Connection
cnBase.CommandTimeout = 1200


usuario = "usuario"
Password = "password"

cnBase.Open "Provider=MSDASQL.1;Password=" & Password & ";Persist Security Info=True;User ID=" & usuario & ";Data Source=DsAdmDemo"
cnBase.CursorLocation = adUseClient

Nota: Debes de activar la referencia Microsoft ActiveX Data Objetcs 2.7 Library o la version que tengas ademas debes de crear un ODBC en este caso lo llamé DsAdmDemo saludos!!!