vb2010　程序中如何设置变量查询，Access数据库，急

Reco.open("Select * From uu", Conn, 1, 1)
str = TextBox1.Text
Reco.Find("users=" & str)　　　‘这里老出错，当我在文本框中输入纯数字时不会错，但是一输字母就出错
If Reco.Eof <> True Then
MsgBox("该用户的密码是:" & Reco("password").value, 64)
Else
MsgBox("未找到该用户的资料!", 16)
End If

Reco.Find("users='" & str &"'")　

少了2个单引号