Membuat Form Login DASAR pada VB 6 Menggunakan Ms-Access 97 dan Komponen Data (DAO)

• Buat database menggunakan Ms-Access 97 atau add-in Visual Data Manager
  
• Buat tabel nama Users yang terdiri dari field nama dan password lalu isi datanya
• Buka VB 6 IDE kemudian buat form seperti pada gambar di bawah
• Tambahkan komponen Data lalu sembunyikan sehingga tampilan form seperti pada gambar sebelah kiri
  

• Setelah mengubah properti Connection, DatabaseName, dan RecordSource pada komponen Data1 kemudian buat program seperti di bawah ini

Private Sub Command1_Click()
 Dim berhasil As Boolean
 Data1.Recordset.MoveFirst
 Do While Not Data1.Recordset.EOF
   If Data1.Recordset.Fields(0) = Text1.Text And _
     Data1.Recordset.Fields(1) = Text2.Text Then
     berhasil = True
     Exit Do
   End If
   Data1.Recordset.MoveNext
 Loop
 If berhasil Then
   MsgBox ("Login berhasil")
 Else
   MsgBox ("login gagal")
 End If
End Sub

Private Sub Command2_Click()
 End
End Sub

• Selesai

Di atas adalah form login dasar dan masih harus dikembangkan agar menjadi form login yang efektif dan bebas bug. Alternatifnya, kita dapat menggunakan komponen ADODC jika databasenya selain Ms-Access 97