การเชื่่อมต่อฐานข้อมูล access ด้วย vb 2008 ช่วยดูให้หน่อยนะครับ

Public Const cnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="+string.Format("{0}",Application.StartupPath)+"\\DiagnoseDB.mdb"

        Dim objConn As New OleDbConnection
        Dim objCmd As New OleDbCommand
        Dim strConnString, strSQL As String
        Dim directory As String = My.Application.Info.DirectoryPath

        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & directory & "\database.mdb;Jet OLEDB:Database Password=;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim intNumRows As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND [Password] = '" & Me.txtPassword.Text & "' "
        objCmd = New OleDbCommand(strSQL, objConn)
        intNumRows = objCmd.ExecuteScalar()