ublic Class Login

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Password.Text = "" Or Username.Text = "" Then
        MessageBox.Show("Password v likh..", "Banday da puttar ban.. :D ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Else
        Dim conn As New System.Data.OleDb.OleDbConnection()

        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\CCIMS.mdb; Persist Security Info= False"
        Dim cmd As New OleDb.OleDbCommand
        Dim sql = "SELECT UserName, Password FROM Login WHERE UserName = '" & Username.Text & "' And Password= '" & Password.Text & "'"
        cmd = New OleDb.OleDbCommand(sql, conn)
        conn.Open()
        Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
        Try
            If dr.Read = False Then
                MessageBox.Show("Access Denied..!!")
                Me.Show()
            Else
                MessageBox.Show("Access Granted..!!")
                Main.Show()

            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try





    End If



End Sub

your code is working fine, its a driver issue you should reinstall MDAC
check this link
Click Here

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.