كانكت شدن به Database Access در ويندوز ويستا

[(سیدشریفی)]

با سلام
من با كد زير در ويندوز ويستا ميخواهم به يك ديتابيس اكسس كانكت شوم ولي امكان پذير نميباشد در ضمن ويستاي من 64 بيتي ميباشد همچنين با همين كد در ويندوز ايكس پي اصلا مشكلي وجود ندارد لطفا راهنمايي كنيد

Dim My_DS_1 As DataSet

Dim My_DA_1 As System.Data.OleDb.OleDbDataAdapter

Dim My_CurrentRow_1 AsLong

Dim My_TotalRows_1 AsLong

Dim My_Comp AsInteger

Dim My_StrConnectionString_1 AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & M_My_App_Path & "\Data\FileName.mdb;" & "Jet OLEDB:Database Password=123456789"

Dim My_Conn_1 AsNew System.Data.OleDb.OleDbConnection(My_StrConnection  String_1)

Dim My_CB_1 As System.Data.OleDb.OleDbCommandBuilder

My_Conn_1.Open()