Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBaseName.mdb"
 Adodc1.CommandType = adCmdTable
 Adodc1.RecordSource = "TableName"
 Adodc1.Refresh