insert into 表名为变量

Question

"  Values 前留一些空格﹐再一個你的insert into 表名 后面怎么沒有見到你的字段呢???難道都在zhanghao.Text 中嗎???
Dim ConStr As String="Provider=Microsoft.Jet.OLEDB.4.0;"
      ConStr += "Data Source=" & Server.MapPath("yuangong.mdb")
      Dim SqlStr As String
      SqlStr="Insert Into" & zhanghao.Text 
      SqlStr += "  Values('" & bianhao1.Text
      SqlStr += "', '" & xinzen.Text & "')"
      Dim Da As New OleDbDataAdapter(SqlStr, ConStr)
      Dim Ds As New DataSet()
      Da.SelectCommand.CommandText=SqlStr
      Da.Fill(Ds, "xx")
      Grid1.DataSource=Ds.Tables("xx")
      Grid1.DataBind()

Answer 1

拼凑起来的语句应该是有问题，看了一下，明显没空格，可以试一试将拼凑起来的语句输入出来看看，如：
      Dim ConStr As String="Provider=Microsoft.Jet.OLEDB.4.0;"
      ConStr += "Data Source=" & Server.MapPath("yuangong.mdb")
      Dim SqlStr As String
      SqlStr="Insert Into " & zhanghao.Text '注意Into后面要有空格
      SqlStr += " Values('" & bianhao1.Text '注意Values前面也要有空格
      SqlStr += "', '" & xinzen.Text & "')"
      Response.Write(SqlStr)'输出语句看看能否运行'      Dim Da As New OleDbDataAdapter(SqlStr, ConStr)
'      Dim Ds As New DataSet()
'      Da.SelectCommand.CommandText=SqlStr
'      Da.Fill(Ds, "xx")
'      Grid1.DataSource=Ds.Tables("xx")
'      Grid1.DataBind()

Answer 2

加俩空格！！！SqlStr="Insert Into " & zhanghao.Text 
      SqlStr += " Values('" & bianhao1.Text
      SqlStr += "', '" & xinzen.Text & "')"