[mbk2006]

Imports System.IO

 
Module Module1
 اذاهب الى القرص c:\
file  واصنع مجلد باسم 
txtوافتح بداخلة ملف تكست 

من خلال المفكرة

وضع بدخل التكست مسار واسم قاعدة البيانات بعدها اقلك بامكانك تضعها باي مكان بالجهاز انت الذي تتحكم في المسار

هاكذا

D:\file\Contact.mdb

وهذين السطرتين ضعهم في المديول حتى يكونوا على مستوى البرنامج ككل

    Public readtext As String = File.ReadAllText("d:\file\file3.txt")
    Public constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & readtext & ";Jet OLEDBatabase Password=12345;"
 
End Module