可以幫我看看我的程式問題出在那嗎?(編號：5940)

Private Sub Command1_Click()
Dim x As String
x = InputBox("請輸入鞋型")
Data1.Recordset.FindFirst "text1='" + x + "'"
End Sub