vb实现查询sql

'部件里添加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   

你可能感兴趣的:(sql,查询,false)