" . " Klicka på " OK " för att lägga till hänvisningen
3 Importera adodb namespace genom att skriva följande kodrad i den första raden i din modul : .
Import adodb
4
Skriv in följande VB koden nedan " Sub Main ( ) " för att skapa en ny variabel :
Dim ADOconnection som ny ADODB.Connection
5
kopiera och klistra in följande kod för att ansluta till en databas i SQL -server :
ADOconnection.ConnectionString = " Provider = SQLNCLI10 ; " _
& " Server = SERVER NAME ; " _
& " Database = Databasens namn , " _
& " Integrated Security = SSPI ; " _
& " DataTypeCompatibility = 80 ; " _
& " MARS anslutning = false; "
ADOconnection.Open ( )
6
Redigera " server Name " och skriv namnet på din SQL server . Redigera " databasnamn " och skriv namnet på den databas du vill ansluta till
7
Skriv följande för att stänga din anslutning när du är klar med anslutningen : .
ADOconnection.Close ( ) katalog
ADOconnection = Nothing