Kết nối database Access với VB6

Private Sub cmdDung_Click()
    Unload Me
End Sub

Private Sub cmdTiep_Click()
    Dim Cn  As ADODB.Connection
    Dim Rs  As ADODB.Recordset
    Dim strSQL As String
    Dim bHople As Boolean
    'Khoi tao moi mot doi tuong Connection
    Set Cn = New ADODB.Connection
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;  Data Source = QUANLYNGUOIDUNG2.MDB"
    'Cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = QUANLYNGUOIDUNG.mdb"
    Cn.Open
    'Thuc thi cau lenh SQL de lay tat ca Ten va Matkhau co trong CSDL
    strSQL = "Select TEN, MATKHAU from NGUOIDUNG"
    Set Rs = New ADODB.Recordset
    Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic
    'Kiem tra xem du lieu doc ra co hop le khong
    If (Rs.BOF = True) Then
    MsgBox "Khong doc duoc thong tin nguoi dung trong co so du lieu"
    Rs.Close
    Cn.Close
    Exit Sub
    End If
    Rs.MoveFirst
    bHople = False
    'Lan luot Tim kiem xem username va password co ton tai trong CSDL khong
    Do While ((Not Rs.EOF) And (Not bHople = True))
        If (Rs![TEN] = txtUsername.Text And Rs![MATKHAU] = txtPassword.Text) Then
            bHople = True
        Else
            Rs.MoveNext
        End If
    Loop
    'Dong ket noi voi CSDL
    Rs.Close
    Cn.Close
    If (bHople = True) Then
        MsgBox "Chuc mung ban da su dung chuong trinh"
        Unload Me
    Else
        MsgBox "Username hay Password khong hop le"
    End If
End Sub