3 Importe el espacio de nombres ADODB escribiendo la siguiente línea de código en la primera línea de su módulo : .
Imports ADODB
4
Escriba el siguiente código de VB abajo " Sub Main () " para crear una nueva variable :
ADOConnection Dim As New ADODB.Connection
5
Copia y pega el siguiente código para conectarse a una base de datos en SQL server:
ADOconnection.ConnectionString = " Provider = SQLNCLI10 ; " _
y "Servidor = SERVER NAME ; " _
y " Database = nombre de la base ; " _
& " Integrated Security = SSPI ; " _
& " DataTypeCompatibility = 80 ; " _
& " MARS Conexión = False; "
ADOconnection.Open ()
6
Editar" nOMBRE DE sERVIDOR "y escriba el nombre del servidor SQL . Editar " nombre de la base " y escriba el nombre de la base de datos que desea conectarse
7
Escriba lo siguiente para cerrar la conexión cuando haya terminado con la conexión : .
ADOconnection.Close ()
ADOConnection = Nothing