access数据库新建表判断表名是否存在的问题
access数据库创建一个表，Text3是输入的表名称，我想判断数据 库中是否存在此表名称以下代码怎么修改
im cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"Set rs = cn.OpenSchema(adSchemaTables)
If rs!TABLE_NAME = Text3.Text Then
MsgBox "存在此表名"
Exit Sub
End If
[解决办法]
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"
Set rs = cn.OpenSchema(adSchemaTables)
Do Until rs.EOF
If rs!TABLE_NAME = Text3.Text Then
MsgBox "存在此表名"
Exit Do
End If
rs.MoveNext
Loop
