Sub apriDataControl(dataControl As Data, dataSource As String)
On Error Resume Next dataControl.DatabaseName = App.Path + "\mioMDB.mdb" dataControl.Connect = ";pwd=miapassword" dataControl.RecordSource = dataSource 'Tabella o query dataControl.Refresh End Sub |