Set con = createobject("ADODB.connection")
   Set rs = createobject"ADODB.Recordset")
   Set com = createobject("ADODB.command")
   con.open( "Driver=SQL SERVER;Server=server name (Where 
DB is located);Database=DB name;Uid=uname;Pwd=pwd;" )
 vf_com.Activeconnection = vf_con