Visual Basic - DSN y CONTROL DATA, COMO HAGO PLEASE!!

Hola colega, tengo una gran duda ya que tengo establecida mi conexion por DSN pero o hallo la forma en como trabajar el control data y su propiedad connectionstring. El siguiente codigo es con el que establesco la conexion... Aradezaco de tu ayuda para ver como puedo hacer en este caso.. Gracias de antemano
Public DATA as Database
Public WKS As Workspace

Public Sub Abrir ()

On Error GoTo 10

' Creamos un espacio de trabajo ODBCDirect
Set WKS = DBEngine.CreateWorkspace("", "Admin", "", dbUseODBC)

' Abrimos una conexión especificando el nombre del DSN
Set DATA = WKS.OpenConnection("", False, False, "ODBC;DSN=Nombre_DSN")
Exit Sub

10
If Err.Number = 3024 Then
MsgBox "No es localizada la Base de Datos... Gracias",vbCritical,"Atención"
Exit Sub
End If
End Sub