Visual Basic - CONEXION ODBC-SQLSERVER

Alguien me podría indicar como hacer la conexion con SQLSERVER (conexion variables), mi proposito es lanzar 2 select sobre la BBDD y recuperar unos campos, darle formato y generar un fichero.

Muchas Gracias.

Global Workspace As Workspace
Global bdatc As Connection

Sub Conectar_bd()
gl_conexion = "ODBC;Server=" & GL_Server & ";DSN=" & GL_DSN_BD & ";UID=" & Gl_Usuario & ";PWD=" & GL_Pass & ";DATABASE=" & GL_Base_BD
Set Workspace = DBEngine.CreateWorkspace("", "admin", "", dbUseODBC)
Set bdatc = Workspace.OpenDatabase(dbnombre, False, False, gl_conexion)
End Sub