Defino:
Private m_conexionAbierta As Boolean
Public m_DAOwrk As DAO.Workspace
Public m_DAOdb As DAO.Database
Private Sub AbrirConexion(ByVal sBDname As String)
On Error GoTo AbrirConexion
If Not m_conexionAbierta Then
m_DAOwrk = CreateWorkspace("", "admin", "", dbUseJet)
m_DAOdb = m_DAOwrk.OpenDatabase(sBDname)
m_conexionAbierta = True
End If
Exit Sub
AbrirConexion:
'ERROR
End Sub
Y NO me reconoce el "CreateWorkspace" ¿alguien sabe qué me falta?
nabina