Cara membuat program login di visual basic 6

CARA MEMBUAT PROGRAM LOGIN DI VISUAL BASIC 6 - Log masuk (login, juga biasa disebut sebagai log in, log on, logon, signon, sign on, signin, sign in) adalah proses untuk mengakses komputer dengan memasukkan identitas dariakun pengguna dan kata sandi guna mendapatkan hak akses menggunakan sumber daya komputer tujuan.

Untuk melakukan log masuk ke sistem biasanya membutuhkan:

• Akun pengguna; digunakan sebagai identitas berupa runtutan karakter yang secara unik merujuk ke pengguna tertentu.
• Kata sandi; runtutan karakter berupa kunci yang dijaga kerahasiaannya terhadap orang lain.

Kedua pasang runtutan karakter itu harus tepat dan keduanya adalah pasangan yang tidak bisa dipisahkan. Kata sandi dapat berubah sesuai dengan kebutuhan, sedangkan akun pengguna tidak pernah diubah karena berupa identitas unik yang merujuk ke pengguna tertentu.

Proses ini akan membuat sesi pada mesin tujuan untuk pengguna yang melakukan log masuk. Dalam kasus pengaksesan situs Internet, situs acapkali meletakkan kuki pada komputer pengguna.

Log keluar (logout, juga biasa disebut sebagai log out, log off, logoff, signoff, sign off, signout, sign out) digunakan untuk mengakhiri sesi.

Silahkan ikuti langkah-langkah dibawah ini :

1. Silahkan buat database menggunakan Ms.Acces.
   Dengan nama dbcoba.mdb
   Tabel User : kodeuser, namauser, passworduser
2. Kemudian buka Visual Basic anda.
3. Silahkan buat form login seperti gambar diatas
   
   User Id menggunakan Text1
   Password menggunakan Text2
   Login menggunakan Command1
   Cancel Menggunakan Command2
4. Setelah membuat form seperti yang saya instuksikan diatas, silahkan anda copy coding di bawah ini :
Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
    Call BukaDB
    Call CariData
            If RSuser.EOF Then
                MsgBox "User Tidak Terdeteksi, Coba lagi"
                Text1 = ""
            Else
            Text2.SetFocus
            End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Command1.SetFocus
    End If
End Sub

Function CariData()
    Call BukaDB
    RSuser.Open "Select * From admin where kodeuser='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Call BukaDB
        RSuser.Open "Select * from admin where kodeuser ='" & Text1 & "' and passworduser='" & Text2 & "'", koneksi
        If RSuser.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            menu.Show
        End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
5. Jangan lupa membuat coding Modules seperti dibawah ini : 
Public koneksi As New ADODB.Connection
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbvainit.mdb"
End Sub

Sumber Lain / Terimakasih : http://id.wikipedia.org/wiki/Login
        

Semoga Bermanfaat.