###~诸位高高手近来帮忙~唯一的一点分了~全给~

首先引用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.Connection  
Dim  objrs  As  New  ADODB.Recordset  
objcon.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Jet  OLEDB:database  password=basic;Data  Source="  &  App.Path  &  "\infoTable.mdb"  
objrs.Open  "select  *  from  infoTable  ",  objcon,  3,  1  
Set  DataGrid1.DataSource  =  objrs