小吳 VBQA 程式設計討論

以下是我的程式！
Dim strSearch As String
　Dim bm As Variant

bm = Data1.Recordset.Bookmark
　strSearch = InputBox("輸入欲查詢會員卡號：", "查詢")
　Data1.Recordset.FindFirst "CODE='" & strSearch & "'"
　If Data1.Recordset.NoMatch Then
　　 Data1.Recordset.Bookmark = bm
　　 MsgBox "找不到符合查詢條件的資料", vbInformation, "查詢回應"
　End If

我是那裡寫錯了？還是那裡設錯了呢？
這個問題困擾我很久了！讓我的程式一直沒辦法進展下去