vb 与Access 中的SQL语句问题，大家进来看看~

Question

实现功能，删除access数据库中的表。
代码如下：
 Private Sub Command2_Click()
    Dim TatabaseSTR,ListSTR
    TatabaseSTR=text1.text
    ListSTR=text2.text
    Dim m As ADODB.Connection
    Set m = New ADODB.Connection
    
    m.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\TatabaseSTR;Persist Security Info=False" 
    m.open    
    m.Execute "DROP TABLE ListSTR"
 End Sub
按照常规思想的话，在这里数据库名称和表的名称都是一个常量，我现在要从text1，text2，中获得信息删除数据中的表。现在无法实现。
大家帮我想象办法，谢谢了~

Answer 1

m.Execute "DROP TABLE " & ListSTR 要有个好习惯
Dim TatabaseSTR as string
Dim ListSTR as string

Answer 2

m.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\TatabaseSTR;Persist Security Info=False" 绝对路径下的这个数据库名字怎么办呀，TatabaseSTR是一个变量。

Answer 3

m.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & TatabaseSTR &";Persist Security Info=False" 
    m.open    
    m.Execute "DROP TABLE "& ListSTR