用vb与MS sql数据库连接

ODBC方法:工程-->引用-->microsoft  activeX  Data  Object  2.6  Library  
 
dim  conn  as  new  adodb.connection  
dim  rs  as  new  adodb.recordset  
conn.open  "字符串1"  
rs.open  "字符串2",adopenstatic,adlockoptimistic  
 
'字符串1:用ADO控件的属性中,生成字符串方法,选择数据库的类型,名称,用户名,密码.把生成的字符串COPY到字符串1的位置,然后把ADO控件删除.  
'字符串2:是SQL语句.  
 
---------------------------------------------------------------  
 
'首先引用Microsoft  Activex  Data  Objects  2.x  Library    
Dim  objcon  As  New  ADODB.Connection  
Dim  objrs  As  New  ADODB.Recordset  
objcon.Open  "Provider=sqloledb.1;user  id=sa;password=密码;Initial  Catalog=数据库名;Data  Source="  
objrs.Open  "select  *  from  表  ",  objcon,  3,  1  
'再部件中添加DataGrid控件  
Set  DataGrid1.DataSource  =  objrs  
 
 
'access  
Dim  objcon  As  New  ADODB