มีปัญหา ติดต่อฐานข้อมูล VB2008 กับ Access อ่าคับ มันconnect ไม่ได้ ไม่รู้ว่าเป็นอะไร ติดแร้วงง

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim strConn As String
    Dim Conn As New OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet


    Dim dt As DataTable
    Dim dr As DataRow

    Dim CurrentStorage As Integer
    Dim IsFind As Boolean = False


    'ฟอร์มโหลด

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data  Source = D:\Project.mdb"


        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn

            .Open()
        End With

        ClearAllData()
        ShowAllStorage()
        FormatAllStorage()

    End Sub

Option Explicit On
Option Strict On
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient

Public Class FormEquipment
    Dim Conn As SqlConnection
    Dim com As New SqlCommand()
    Dim dr As SqlDataReader
    Dim tr As SqlTransaction
    Dim sb As New StringBuilder()
    
Private Sub ShowData()
        sb.Remove(0, sb.Length)
        sb.Append("SELECT ID,Name,Number")
        sb.Append(" FROM Customer")
        sb.Append(" ORDER BY CustomerID")
        Dim sqlequipment As String = sb.ToString()

        Dim dr As SqlDataReader
        Dim dt As DataTable

        com = New SqlCommand()
        With com
            .CommandType = CommandType.Text
            .CommandText = sqlequipment
            .Connection = Conn
            dr = .ExecuteReader()
            If dr.HasRows Then
                dt = New DataTable()
                dt.Load(dr)
                dgvequipmentList.DataSource = dt
            Else
                dgvequipmentList.DataSource = Nothing
            End If
        End With
        dr.Close()
    End Sub
   
 Private Sub FormEquipment_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'VVDataSet.ChackEquipment' table. You can move, or remove it, as needed.
        Me.ChackEquipmentTableAdapter.Fill(Me.VVDataSet.ChackEquipment)
        Dim strConn As String
        strConn = "Data Source=BLOG-8R3Q8PQKGG\SQLEXPRESS;Initial Catalog=VV;Integrated Security=True"
        Conn = New SqlConnection(strConn)
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        ShowData()
        dgvequipmentList()  >>>ขึ้น error ว่า Property access must assign to the property or use its value ที่บรรทัดนี้ค่ะ <<<
    End Sub