Cara Membuat Form Login Di Visual Basic 6.0 dan MS.Access

Assalamualaikum Wr.Wb
Sobat Blogger gimna kabarnya? Sory nih ya baru posting kali ini saya akan berbagi sedikit tentang Visual Basic 6.0 kali ini saya akan sedikit berbagi tentang bagaimana cara membuat Form Login dengan menggunakan Access
1.Buat sebuah database dengan menggunakan Access berformat .mdb

2.Buat sebuah Field 
kd_user , nm_user, alamat_user, telp_user, password, level lalu simpan tabel dengan memberi nama Tabel dengan users.

3.Masuk ke VB lalu add new Form
Masukan Komponen Berikut :
   1.Text1 dan berinama (txtkode)
   2.Text2 dan berinama (txtpsw)
   3.Command Button dan berinama (cmdlogin)
Selebihnya terserah Anda mau bagaimana desain form anda









4.Add Module dan Isikan Code Berikut
Option Explicit

Public dB As New ADODB.Connection
Public rs As New ADODB.Recordset
Public sql As String
Public sql2 As String
Public Function Koneksi_Database() As Boolean
On Error GoTo Pesan
If dB.State = adStateOpen Then
    dB.Close
End If
dB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\dbase.mdb"
Koneksi_Database = True
Exit Function
Pesan:
Koneksi_Database = False
MsgBox "Koneksi ke Database GAGAL !!", 16, "Error"
End
End Function


5.Klik Dua kali Button Lalu Copykan Kode Berikut :
Private Sub cmdLogin_Click()
Call login
End Sub
Sub login()
If txtkode.Text = "" Then txtkode.SetFocus: Exit Sub
If txtpsw.Text = "" Then txtpsw.SetFocus: Exit Sub
Call Koneksi_Database
sql = "select * from users where kd_user= '" & txtkode.Text & _
"' and password = '" & txtpsw.Text & "'"
rs.Open sql, dB, adOpenDynamic, adLockBatchOptimistic
With rs
If .EOF = False Then
Dim lvl As String
lvl = rs.Fields("Level")
If lvl = "USER" Then
Menu.Enabled = True
Menu.StatusBar1.Panels(1).Text = txtkode.Text
Menu.StatusBar1.Panels(2).Text = rs.Fields("txtpsw")
Menu.mnuPengguna.Enabled = False
For X = 1 To 7
Next X
frmMenu_Utama.Show
Unload Me
Else
frmMenu_Utama.Enabled = True
frmMenu_Utama.mnuPengguna.Enabled = True
For X = 1 To 7
Next X
frmMenu_Utama.Show
Unload Me
End If
Else
MsgBox "User tidak terdaftar / password anda salah !", vbCritical, "Peringatan"
txtkode.Text = ""
txtpsw.Text = ""
End If
End With
End Sub

6. Masukkan Kode berikut di halaman code setelah end sub dari buton
Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpsw.SetFocus
End Sub

Private Sub txtpsw_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call login
End Sub

7.Run .... Isikan Form sesuai Dengan Database
8.Selesai