Visual Basic - CONEXION CON SQL SERVER

HOLA A TODOS
ALGUIEN SABE COMO SE HACE UNA CONEXION DE UNA BD DE SQL SERVER.
GRACIAS!!!!

Karla, primero a nivel modulo define el objeto de coneccion:

Public cn As ADODB.Connection

Luego puedes definir una subrutina a nivel modulo que haga la coneccion:

Public Sub Connection_SQLServer()
Dim NombreBaseDatos As String
Dim NombreServidor As String

NombreBaseDatos = "BASEDATOS"
NombreServidor = "SERVER"
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB"
.ConnectionString = _
"User Id=sa" & _
";Password=" & _
";Data Source=" & NombreServidor & ";" & _
"Initial catalog=" & NombreBaseDatos
.Open
End With
End Sub

Saludos desde Lima