vb6 select语句中加入变量后 总报错“from子句语法错误”

Question

Dim conn As New ADODB.Connection
Dim rsstu As ADODB.Recordset
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
      Dim tbltem1$
      Dim db$, cnn$
      If Right(App.Path, 1) = "\" Then
        db = App.Path + "Record.mdb"
      Else
        db = App.Path + "\" + "Record.mdb"
      End If
      cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db & ";User Id=;Password=;"
      conn.Open cnn      tbltem1 = Node.parent.text & "话费"
      Set rsstu = New ADODB.Recordset
      rsstu.CursorLocation = adUseClient
      rsstu.Open "select * from " & tbltem, conn, adOpenStatic, adLockReadOnly
      Set DataGrid1.DataSource = rsstu
End Sub

Answer 1

'前面加上
debug.print select * from " & tbltem
rsstu.Open "select * from " & tbltem, conn, adOpenStatic, adLockReadOnly 
看看输出什么？有这个表么？

Answer 2

多谢
发贴时把tbltem1错写成tbltem了，改回来还是报错

Answer 3

先debug.print tbltem1
看看你传进去的到底是什么东西，可能是非法表名