Como que eu acesso meu banco em rede. Uso DAO e coloquei dessa forma.:
Private Sub UserForm_Load()
Set W_s = DBEngine.Workspaces(0)
Set bdMat = W_s.OpenDatabase("
\Srv4J-01EstoqueMateriais.mdb")
Set tbloc = bdMat.OpenRecordset("Localizacao", dbOpenTable)