Visual Basic - CONEXION DSN CON DAO PLEASE

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..