SoloCodigo

Hola colega,  tengo una gran duda ya que necesito hacer
mi conexion por DSN pero no hallo la manera como. Mi base
de datos esta en Access y la programacion en DAO. El
codigo que tengo actualmente es el siguiente:

Public DATA As DAO.Database
Public OFICI As DAO.Recordset
Public CEDORI As DAO.Recordset
Public CEOBJ As DAO.Recordset


Public Sub Abrir()
On Error GoTo 10
    Set DATA = OpenDatabase(".\CEDULACION.mdb")
10
If Err.Number = 3024 Then
    Varmsg1 = MsgBox("No es localizada la Base de
Datos... Gracias", vbCritical, "Atención")
    Exit Sub
End If
End Sub

Agradezco de tu ayuda de antemano colega..
.