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语句