Form Login Visual Basic Berdatabase

Membuat Form Login dengan tampilan sesuai anda

Membuat Database dari Add-ins Visual Data Manager

Membuat Table dan mengisi usernya
Klik kanan dan new table

jika sudah klik 2x tablenya

Mengkoneksikan form dengan tabel database

connect       = access
databasename  = (nama database).mdb
recordsource  = (nama table)

Script di Tombol Login

' membaca table login (Tuser.text & Tpass.text) disesuaikan dengan name text box anda
Login.RecordSource = "select * from login where user ='" & Tuser.Text & "' and pass='" & Tpass.Text & "'"

' refresh data
Login.Refresh

' Jika data tidak di temukan
If Login.Recordset.EOF Then
MsgBox "Maaf data yang anda masukan salah . . ", vbExclamation, "Kesalahan Login"
Tuser.Text = ""
Tpass.Text = ""
Tuser.SetFocus

' Jika benar
Else
MsgBox "Selamat Datang " & StrConv(Tuser.Text, vbProperCase) & " , Terima Kasih telah Login.", , "Login Sukses"
End If