Private Sub Command1_Click()
On Error GoTo ErrMsg
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From 進銷存表 Where 產品編號 like'" & Text1.Text & "'"
Adodc1.Refresh
Exit Sub
ErrMsg:
MsgBox Err.Description
End Sub
不上面中的sql中"%"符號要放在text1.text中的那才不會出錯並可使用呢?