，，，

原创 VB查询ACCESS数据库内容

Dim cnn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim cmd As New ADODB.CommandPrivate Sub Command2_Click()On Error Resume Next'Adodc2.RecordSource = "select * from A2 where 人口="