Dim DBFILE As String
DBFILE = "c:\temp\databasename.mdb" Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFILE & ";Persist Security Info=False" 'questa riga setta la stringa SQL da passare per il riempimento del recordset 'adodc1.recordsource would = "SELECT * FROM..." ' Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "table1" Adodc1.Refresh Aggiungi un controllo ADO sul form. ed incolla questo codice nel Form_Load or in un Button_Click. Modifica il DBFILE = database da caricare |