Vb.net 2017ติดต่อกับฐานข้อมูล Ms-Access 2017(.accdb)

Imports System.Data.OleDb
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim connAcc As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\GA\att2000_Save.mdb;"
       Dim conn As New OleDbConnection
      If conn.State = ConnectionState.Open Then conn.Close()
         cons.ConnectionString = connAcc
         cons.Open()
        If cons.State = 1 Then
            'MsgBox("OK")
        End If
    End Sub