Dim cn As New ADODB.ConnectionDim rds As New ADODB.Recordset
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=xinmei;Data Source=stone"rds.CursorLocation = adUseClient’这一条一定的有rds.Open "select * from 采购台帐表", cn, 3, 4
Set DataGrid1.DataSource = rds.DataSource