Tampilan :
Tabel User/Database:
Untuk Menampilakan DBGrid : Klik Kanan Pada Toolbox Kemudian Pilih Components Kemudian Pilih Microsoft Data Bound Grid Contorl 5.0(SP3)
Listing/Coding :
Option Explicit
Private Sub cmdlogin_Click()
On Error GoTo a
Data1.Recordset.Index = "xuser"
Data1.Recordset.Seek "=", txtuser
If Data1.Recordset!Password <> txtpass Then
MsgBox...
