Modifica esto y ya debe funcionarte:
Código vb:
Ver originalAdodc1.RecordSource = "select * from Empresas"
A no ser que Empresa sea un campo dentro de la tabla Empresas.
En cuanto a tu cadena de conexion puedes hacer lo siguiente colocas la base de datos en la carpeta del proyecto, entonces le dices que la busque ahi anteponiendole un punto al slash así:
Código vb:
Ver originalBase = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\Cliente-cuatroSist. YauliyacuControl Mina.mdb;Persist Security Info=False"
Y de esa manera muevas donde la muevas va a seguir conectandose sin ningún problema. Cualquier duda posteala...