pengen tau

kode pencarian pada visual basic program pencarian 

mfield = InputBox("Masukkan Nama Field yg Dicari(Contoh : NOURUT, TGLTrans)", "Mencari MField")

msyarat = InputBox("Masukkan Kriteria / NPM (001 / 10/10/2010) yg dicari", "Mencari" & mfield)

'jika Msyarat berisi angka maka:

If IsNumeric(msyarat) Then

    MKriteria = mfield & "=" & msyarat

'jika Msyarat berisi tanggal maka :

ElseIf IsDate(msyarat) Then

    MKriteria = mfield & "=" & "#" & msyarat & "#"

    'jika Msyarat berisi data bertipe text maka :

    Else

        MKriteria = mfield & "=" & "'" & msyarat & "'"

End If

With Adodc1.Recordset

On Error Resume Next

'pencarian dimulai dari awal record

'.Find MKriteria, , adSearchForward, 1

.MoveFirst

ketemu = False

Do While Not .EOF()

    If InStr(1, Adodc1.Recordset(mfield), msyarat, vbTextCompare) > 0 Then

   

    ketemu = True

    Exit Do

Else

    ketemu = False

End If

    .MoveNext

    DataGrid1.Refresh

Loop

On Error GoTo 0

'If .EOF Then

    If ketemu = False Then

    MsgBox "Data tidak Ditemukan", , "Data Tidak Ada"

End If

End With

    MsgBox "Data Pembelian yang Anda Cari Sudah Ketemu..."

End Sub

Private Sub Text1_Change()

Text11.Text = Val(Text7.Text.Text) * Val(Text1.Text.Text)

End Sub

Private Sub Text3_Change()

On Error Resume Next

Adodc1.Recordset.Find "kode =  " '" + Text3.Text + "'", ,

adSearchForward , 1

Text3.Text = Adodc1.Recordset.Fields("NamaBrg")

Text4.Text = Adodc1.Recordset.Fields("Satuan")

Text5.Text = Adodc1.Recordset.Fields("Harga")

Text6.Text = Adodc1.Recordset.Fields("Jumlah")

On Error GoTo 0