Private Sub Command1_Click()
Dim psql
 cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\Dictionary.mdb"
 cn.Open
  rs.Open "Select Spanish.*, English.* from Spanish, English", cn, adOpenDynamic, adLockOptimistic
If Right$(Text2.Text, 2) = "ed" Then
Text2.Text = Left$(Text2.Text, Len(Text2.Text) - 2)
     psql = "SELECT Spanish.Verbpast FROM English INNER JOIN Spanish ON English.Spsh_ID = Spanish.Spsh_ID WHERE English.Verbpresent= '" & Text2.Text & "'"
 rs.MoveFirst
    rs.Requery psql
If Not rs.EOF Then
    Text3.Text = rs(“Verbpast”)
End If
End If
End Sub