vb实现查询sql

'部件里添加ADODC

'部件添加DataGrid

Private Sub Command1_Click()

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:22.mdbersist Security Info=False"

    Adodc1.CommandType = adCmdText

    Adodc1.RecordSource = "select * from itb1"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

End Sub   

本文转自 bilinyee博客，原文链接：   http://blog.51cto.com/215363/1026446     如需转载请自行联系原作者