Runtime Error 91: DAO connection

I have this code and it is used for when a user types in text into textbox1 and they press space the text is looked up in a database and the ouput is put into textbox2.  I have got this woring in VB6 but i cant get it working in a Word VBA userform, i keep on getting the error runtime error 91 when i press the spacebar.  It highlights the line where it looks for the 'SearchText' field in the database.  Here is the code.


Dim db As DAO.Database
Dim rs As DAO.Recordset

Sub UserForm_Click()
Set db = OpenDatabase("C:\Documents and Settings\cm318\Desktop\TEST.mdb")
Set rs = db.OpenRecordset("tblTEST", dbOpenDynaset)
End Sub

Private Sub CommandButton1_Click()

End Sub


Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim Prts() As String
Dim tmpTEXT As String

If KeyAscii = 32 Then
    If TextBox1.Text <> "" Then
        Prts = Split(TextBox1.Text, " ")
            For X = 0 To UBound(Prts)
                rs.FindFirst "[SearchText]='" & Prts(X) & "'"
                    If Not rs.NoMatch Then
                        tmpTEXT = Replace(tmpTEXT, Prts(X), rs.Fields("ReplacementText"))
                    End If
                Next
            TextBox2 = tmpTEXT
        End If
    End If
End Sub