Jawabanmu

2014-01-09T15:25:03+07:00
Masuk ke view code, kemudian masukkan kode program di bawah ini:Private Sub cmdTerjemahkan_Click()
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.Find "indonesia= '" & Me.txtIndonesia.Text & "'"
If Not Me.Adodc1.Recordset.EOF Then
    Me.txtInggris.Text = Me.Adodc1.Recordset.Fields(2)
Else
   MsgBox "Kata tidak ditemukan", vbInformation, "Info"
   Me.txtIndonesia.Text = ""
   Me.txtInggris.Text = ""
   Me.txtIndonesia.SetFocus
End If

End Sub

Private Sub Form_Load()
    Me.Adodc1.Refresh
End Sub

dapat di gugel gan :D moga moga membantu~
1 3 1