Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set cnn = New ADODB.Connection
   Set rst = New ADODB.Recordset
   cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=MYPC"
   cnn.Open
   Set rst.ActiveConnection = cnn
   rst.Open "select * from Table1"
   Set TDBGrid1.DataSource = rst
但是查询不出数据,用ADODB控件就可以(ConnectionString也设一样的,在设计时将TDBGrid1的DataSource属性设置为ADODB1)