i want to save the name of the file in a variable mdb_name and then i will create an extra column file_name in every table of the file and then i want to fill the new column with the content variable mdb_name.
the olny thing i have is to add the new column nether to save the filen ame in a viriable nor to fill the fields with the file name.
Code:
Private Sub Command1_Click()
Dim myConn As ADODB.Connection
Set myConn = New ADODB.Connection
myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\giorgos\Documents\12345.mdb;"
myConn.Open
myConn.Execute ("Alter Table Table_name Add Column file_name Text(12)")
myConn.Close
End Sub