มีปัญหากับการเชื่อมต่อฐานข้อมูล Access ใน vb ครับ วานผู้รู้ช่วยตอบทีนะครับ

Imports System.Data
Imports System.Data.OleDb

Module Module1
    Public acsconn As New OleDb.OleDbConnection
    Public acsdrr As OleDbDataReader
    Public strsql As String

    Sub connect()
        acsconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|datadirectory|\Database.accdb"
        acsconn.Open()
    End Sub

End Module

 Private Sub AnswerSheet_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Database.
        Module.connect()