Private Sub Command2_Click()
超市收费系统.Show
商品资料维护.Hide
End Sub

Private Sub Form_Load()
Dim mpath$, mlink$
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
mlink = "Provider=microsoft.jet.oledb.4.0;"
mlink = mlink + "Data Source=" + mpath + "商品信息维护.mdb"
Adodc1.ConnectionString = mlink
Adodc1.CommandType = adCmdUnknown
End Sub



Private Sub Command1_Click()
  If Text1 > "" Then
  Adodc1.RecordSource = "Select * From 商品信息维护 where 货号='" & Text1 & "'"
  Else
  Adodc1.RecordSource = "select * from 商品信息维护"
  End If
  Adodc1.Refresh
End Sub
调试总是指在Adodc1.Refresh