CreateWorkspace con DAO.NET

[nabina]

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

[RootK]

Una pregunta antes que nada...

Porque usas la sintaxis de las versiones anteriores...., no sería mejor que si ya estas empezando con net utilices ADO.NET. . .? o es muy necesario trabajar con DAO ?

Salu2

[nabina]

Lo de buscar DAO no es porque sí, es que necesito mantener estos accesos contra MSAccess porque comparto con otras aplicaciones módulos y tengo que intentar mantener este código antiguo. :-p

De todas formas, tras buscar y buscar lo he conseguido:
objAccess.Application.DBEngine.CreateWorkspace()

Ya migraré a .NET puro y duro

Gracias,
nabina