public  ADOCon as ADODB.Connection
 
Public Sub Verbinden()
dim sCon as string
 
sCon="PROVIDER=MSDASQL;driver={SQL Server}; 
scon=scon &" server=Hobbes;database=maTest;UID=maTestuser;PWD=ma"
 
set  ADOcon =New ADODB.Connection
adocon.open sCon
End sub