Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "毕老辩姓名手缺表含辩"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Set DataGrid1.DataSource = Adodc1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024