(¯´•۞۩windyboy۩۞•`¯)

Private Sub cmdSearch_Click()
Dim a As Variant
Dim l As Variant
  a = txtKalame
  a = "kalame='" + a + "'"
  Debug.Print a
  Data1.Recordset.MoveFirst
  Data1.Recordset.FindFirst a
 If Data1.Recordset.NoMatch = True Then

  a = MsgBox("˜áãå ãæÑÏ äÙÑ íÏÇ äÔÏ.", vbOKOnly + vbInformation)
  txtKalame.Text = ""
  txtMani.Text = ""
 Else
 For l = 1 To 7
 Beep
 Next l
  txtKalame.Text = Data1.Recordset.Fields("kalame")
  txtMani.Text = Data1.Recordset.Fields("mani")
 End If
End Sub

موفق باشی!