Dim dbMyDB As Database
Dim rsMyRS As DAO.Recordset
 
Private Sub Form_Load()
    Set dbMyDB = OpenDatabase("QA.mdb")
    Set rsMyRS = dbMyDB.OpenRecordset("QADB", dbOpenDynaset)
End Sub
 
Private Sub cmdGiveAnswer_Click()
rsMyRS.FindFirst "Qes=" & Str(txtQuestion.text) 
'this is supposed to search the database for the text in the textbox; txtQuestion. Qes is the field name of the column in which the questions are stored, in the database
 
lblAnswer.Caption = rsMyRS!Answer
 'Answer is the name of the field in which the answers are stored.
 
End Sub

rsMyRS.FindFirst "Qes= '" & replace(txtQuestion.text, "'", "''") & "'")

Dim dbMydb As Database
Dim rsMyRS As DAO.Recordset
 
Private Sub cmdGo_Click()
    Dim question As String
    Dim answer As String
    Dim newA As String
    Dim newQ As String
lblA.Caption = ""
        answer = ""
        Set dbMydb = OpenDatabase(App.Path + "\Answers.mdb")
        Set rsMyRS = dbMydb.OpenRecordset("Ans", dbOpenDynaset)
        question = txtQ.Text
        rsMyRS.MoveFirst
        Do
            If rsMyRS![Quest] = question Then
                answer = rsMyRS![Answ]
                Exit Do
            Else
                rsMyRS.MoveNext
            End If
        Loop Until rsMyRS.EOF
        lblA.Caption = answer
        If answer = "" Then
            newQ = txtQ.Text
            lblA.Caption = "I'm sorry but I don't know how to answer that please tell me the answer"
            newA = InputBox("Please tell me the answer for that question so that I can answer it the next time you ask it", "New Question")
            If newA <> "" Then
                rsMyRS.AddNew
                rsMyRS!Quest = newQ
                rsMyRS!Answ = newA
                rsMyRS.Update
            End If
        End If