- Pertama tama kamu buat dulu tampilan seperti ini :



- Kemudian beri name masing masing :


texbox "username"= tusername
textbox "password"= tpassword
Login = clogin
Exit = exit



- Selanjutnya double klik commandbutton "Login" dan paste :

Private Sub clogin_Click()
Call koneksi
rsuser.Open "select*from tbuser where kodeuser='" & tusername.Text & "' and password='" & tpassword.Text & "'", KON
If rsuser.EOF Then
MsgBox "maaf, user tidak ditemukan. Anda tidak berhak masuk", vbCritical
Else
 kode = rsuser!kodeuser
 nama = rsuser!namauser
 MsgBox "selamat datang " & nama & ""
 fmenu.Show
 'fmenu.hide
 End If
End Sub

 

- kamu buat sebelumnya variabel "koneksi" pada form-load (bukan secara manual diketik, tapi pilih pada combo pilihan Form dan selanjutnya load)

Private Sub Form_Load()
Call koneksi
End Sub

 


- Buat variabel terpisah yang berfungsi sebagai penghubung ke database

Dim kode, nama As String

 

- Double klik commandbutton "exit" dan paste :

Private Sub EXIT_Click()
a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If
End Sub

Sebelumnya kamu harus membuat Module agar bisa terkoneksi ke database phpmyadmin