小吳 VBQA 程式設計討論

請問一下，
我想要利用inputbox的方式先記錄使用者的帳號，
然後將這個帳號存入資料表裡，
過一會時間再利用Recordset.FindFirst的方式取出符合這個使用者帳號的密碼，
但執行過程他總是告訴我運算式錯誤，
想請問我這樣的寫法有錯嗎？
UserAccount = Input("請輸入您的帳號:", "個人資料")
UserId = UserAccount
Rem UserId是全域變數-字串
Data1.Recordset.FindFirst "userid = ' "+ UserId +" ' "
UserPass=Data1.Recordset.Fields(1).Value
但執行過程出錯的訊息是「運算不支援此物件類型」，錯誤的是紅色的那一行。
對了，userid是資料表的欄位。
可否幫我解答。