saya coba ya, moga aja bisa mas..............
rsproduk.Find "kdobat='" & txtkode.Text & "'", , adSearchForward, 1
With rsproduk
If .EOF Then
x=msgbox("data tidak ada",0,app.title)
Exit Sub
End If
txtNAMA.Text = rsproduk.Fields("nama")
txtsatuan.text = rsproduk.fields("satuan")
End With
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
[Non-text portions of this message have been removed]
