Citar
no se ha definido el tipo definido por el usuario
casi siempre que queiro de hacer esto (lo que esta en azul me da siempre el error por ej:MSN as new bla bla bla o Public base as database quiero ahcer abrir una base datos y me tira ese error miren les dejo una parte del codigo donde me dice eso espero qeu alguno me pueda ayudar 
Código:
'declaración de variables
Public base As Database
Public area As Workspace
Public reg As Recordset 'recomendable declararla en el general
Public Const ruta = "D:\jorge\programas\clasemejoradoyaumnetado\agenda.mdb" 'ruta donde se encuentra la base de datos
Public x As Integer
'abrir la base de datos
Sub main()
Set area = DBEngine.Workspaces(0)
Set base = area.OpenDatabase(ruta)
MDIForm1.Show 'muestra el formulario MDI
End Sub
Public base As Database
Public area As Workspace
Public reg As Recordset 'recomendable declararla en el general
Public Const ruta = "D:\jorge\programas\clasemejoradoyaumnetado\agenda.mdb" 'ruta donde se encuentra la base de datos
Public x As Integer
'abrir la base de datos
Sub main()
Set area = DBEngine.Workspaces(0)
Set base = area.OpenDatabase(ruta)
MDIForm1.Show 'muestra el formulario MDI
End Sub
Código:
Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative
Public WithEvents MSN As MessengerAPI.MessengerNative
PD: el ejemplo no es mio lo saque de una agenda y anda pero cada vez que lo paso a mi proyecto me dice eso que me falta.