再問一個關於搜尋的問題(編號：8255)

下列這一段程式不知有那裡不對,每當我輸入數字搜尋時都沒問題,但是輸入文字或太長的數字時就掛了(會出現錯誤),不知為何,可請會的人幫忙回答嗎?
另外,不知是否能在inputbox中限制輸入呢(只能輸入文字,或只能輸入多少位的數呢)?
謝謝大家的幫忙,謝謝!!
Private Sub mFind_Click(Index As Integer)
Dim cRet As String
Dim BkMk As Variant
cRet = InputBox("請輸入查詢條件:", "查詢")
　　BkMk = Adodc.Recordset.Bookmark
　　Adodc.Recordset.MoveFirst
Select Case Index
Case 0
　　　　
　　　　　　Adodc.Recordset.Find "客戶編號 = '" + cRet + "'"

Case 1
　　　　
　　　　　　Adodc.Recordset.Find "單號 = '" + cRet + "'"

End Select

If Adodc.Recordset.EOF Then
Adodc.Recordset.Bookmark = BkMk
　　Beep
　　MsgBox "找不到"
　　End If
End Sub