在vb中查找出access数据库里所有表的相同字段的数据

Private Sub Form_Load()
Dim i As Integer

On Error GoTo err
db = "\\192.168.2.252\开発部\APP_VB6\200707_アイチ补修\01_日本资料\アイチ补修\アイチ补修.mdb"
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & db
conn.CursorLocation = adUseClient
conn.Open db

i = 0
Set Rs = conn.OpenSchema(adSchemaTables)
If Rs.EOF = False Then

Do Until Rs.EOF
If Left(Rs!TABLE_NAME, 4) <> "MSys" Then
Combo2.AddItem Rs!TABLE_NAME, i
i = i + 1
End If
Rs.MoveNext
Loop

End If
Rs.Close: Set Rs = Nothing

Exit Sub

err:
MsgBox err.Number
Unload Me

End Sub

上面是查找所有表的代码 把循环往combox里添加数据改成查询你想要的字段就可以了！~ 记得在最上面加个 ON ERR