ไม่รู้ผิดตรงไหนครับ Database Access  ไม่ใส่ Password  Run ผ่าน  พอเอา Database  ที่มี  Password  Run ไม่ผ่าน

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim strConna As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ChqData.mdb;User Id=admin;Password=hot12345;"
    
        Dim Conna As New OleDbConnection(strConna)
        Dim sqlShow As String


        sqlShow = "SELECT * From  tAccounts"
        Dim da As New OleDbDataAdapter(sqlShow, Conna)

        Dim ds As New DataSet
        da.Fill(ds, "XXX")
        DataGridView1.DataSource = ds.Tables("xxx")

ฟ้อง errr  ดังรูป



ผมน่าจะเขียนครบแล้วนะครับ หรือ ต้องลงลึกไป Group เปล่า พอดี เปิด Database ดูครับ