VB创建ＡＣＣＥＳＳ表以后，如何查询？在线等，马上给分！！

Question

VB创建ＡＣＣＥＳＳ表是可能表的命名是随意的，由于在编程序时事先不知道表的名字，采用select * from 具体表名　看来是无法查询，有什么办法在任意取表时，而在查询表的数据时用一个变量代替表名，注意：数据库中的表数是随时都在变，因为要添加和删除表？

Answer 1

TableName = Text8.Text + Text9.Text + Text10.Text
answer = MsgBox("新建 " + TableName + " 吗？", vbOKCancel, "新建表单")If answer = True Then
Dim sql As String
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open DataConnectString1
sql = "create table " + TableName + "(ID counter PRIMARY KEY,元件名称 varchar(50) not null,型号 varchar(50),封装 varchar(50),数量 short,元件标识 varchar(50),备注 varchar(50))"
cnn.Execute sql