'部件里添加ADODC '部件添加DataGrid Private Sub Command1_Click() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:22.mdb ersist Security Info=False" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from itb1" Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 End Sub
本文转自9pc9com博客,原文链接: http://blog.51cto.com/215363/1026446 如需转载请自行联系原作者