急，在线等！

Question

With Adodc1.Recordset 
      .AddNew 
      .Fields(0) = Text1.Text 
      .Fields(1) = Text2.Text 
      .Fields(2) = Text3.Text 
      .Fields(3) = Text4.Text 
      .Fields(4) = Text5.Text 
      .Fields(5) = Text4.Text * Text5.Text 
      .Fields(6) = Text7.Text 
      .Update 
End With 
Adodc1.Refresh 
DataGrid1.Refresh 
Adodc1.Refresh 
DataGrid1.Refresh 
MsgBox ("已将进货药品添加到进货单！") 
Text1.Text = "" 
Text2.Text = "" 
Text3.Text = "" 
Text4.Text = "" 
Text5.Text = "" 
Text6.Text = "" 
Text7.Text = "" 
Adodc1.RecordSource = "进货单 order by 编号" 这是我的进货单添加的代码，想问下大家为什么第一次添加就好用，以后就有错误，说是无效的SQL语句

Answer 1

Adodc1.RecordSource = "select * from 进货单 order by 编号" 

Answer 2

Adodc1.ConnectionString =""‘连接数据库路径。
Adodc1.RecordSource = "select * from 进货单"
Adodc1.Refresh
With Adodc1.Recordset
      .AddNew
      .Fields(0) = trim(Text1.Text)
      .Fields(1) = trim(Text2.Text)
      .Fields(2) = trim(Text3.Text)
      .Fields(3) = trim(Text4.Text)
      .Fields(4) = trim(Text5.Text)
      .Fields(5) = val(trim(Text4.Text)) * val(trim(Text5.Text))
      .Fields(6) = trim(Text7.Text)
     .update
DataGrid1.Refresh
MsgBox ("已将进货药品添加到进货单！")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

Answer 3

不好意思忘记结束WITHAdodc1.ConnectionString =""‘连接数据库路径。
Adodc1.RecordSource = "select * from 进货单"
Adodc1.Refresh
With Adodc1.Recordset
      .AddNew
      .Fields(0) = trim(Text1.Text)
      .Fields(1) = trim(Text2.Text)
      .Fields(2) = trim(Text3.Text)
      .Fields(3) = trim(Text4.Text)
      .Fields(4) = trim(Text5.Text)
      .Fields(5) = val(trim(Text4.Text)) * val(trim(Text5.Text))
      .Fields(6) = trim(Text7.Text)
     .update
end with
DataGrid1.Refresh
MsgBox ("已将进货药品添加到进货单！")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""

Answer 4

Adodc1.RecordSource = "进货单 order by 编号"这句话有毛病吗？

Answer 5

Adodc1.RecordSource = "select * from 进货单 order by 编号" 以上基于进货单是表名的情况下