用vb 做查詢功能發生錯誤，求助。

Question

程式碼:
private sub command1_click()
dim strid as string
onerror goto err
strid = inputbox("please input pid")
adoemp.recordset.movefirst
adoemp.recordset.find "pid=" &strid
exit sub

err:
msgbox err.description
end sub
資料庫access內容: 有三筆資料, 資料型態皆為文字
pid pname
1 123 shoe
2 789 hat
3 b456 pant
利用此功能在查詢pid 為123 和789 時沒有問題，可是一查詢 b456 時就發生錯誤了，請問要如何解決。
錯誤訊息為: 引數中可能發生類型錯，超過可接受的定義範圍，或
其他引數發發生衝突。

Answer 1

adoemp.recordset.find "pid=" &strid
改成
adoemp.recordset.find "pid='" & strid & "'"
因為 b456 是字串型式
前後必須加單引號
如果有問題, 請來函討論. 不然, 我可能會錯失你再補充的疑點.