Visual Basic - ODBC + SQL

Hola a todos, saben que tengo un pequeño gran problema lo que pasa es que necesito saber como generar un odbc para conectar mi sistema a sql server, para así acceder desde cualquier equipo de la red.

Mediante código:
'----- Leo el Servidor del archivo Ini
NomSrv = Lee_Ini(App.Path & "\SAVSLoadInf.ini", "DATABASE", "SERVIDOR")
'----- Leo Usuario y Password
gUser = ObtPassword(Lee_Ini(App.Path & "\SAVSLoadInf.ini", "DATABASE", ObtPassword("USUARIO", 0)), 1)
gPassword = ObtPassword(Lee_Ini(App.Path & "\SAVSLoadInf.ini", "DATABASE", ObtPassword("PASSWORD", 0)), 1)
'-----Creo los DSN Correspondientes
Crea_ODBC "S", "MAVS", "SQL Server", "dsnMAVS", NomSrv
Crea_ODBC "S", "MAVS_QRY", "SQL Server", "dsnMAVSQry", NomSrv

Sub Crea_ODBC(tipobd As String, NomDB As String, Driver As String, NomDSN As String, Optional Servidor As String)
'Autor Juan Carlos Alvarado Espinoza

Dim dbsRegistro As Database
Dim strDescripción As String
Dim strAtributos As String
Dim errBucle As Error

' Genera la cadena de palabras clave.
If tipobd = "S" Then
strAtributos = "DATABASE=" & NomDB & vbCr
Else
strAtributos = "DBQ=" & NomDB & vbCr
End If
strAtributos = strAtributos & "DESCRIPTION=" & NomDSN & vbCr & _
"OemToAnsi=No" & vbCr & _
"SERVER=" & Servidor

' Actualiza el Registro de Windows.
DBEngine.RegisterDatabase NomDSN, Driver, True, strAtributos

End Sub

Manualmente:
Lo puedes hacer desde el panel de control / ODBC

Espero te ayude. :)

Creo que te faltaron algunas funciones

Debes activar desde Referencias.
Microsoft DAO 2.5/3.51 Compatibility Library

No hay mas funciones, lo demás es el nombre de tu servidor, etc.. etc.. que tu debes ponerlo fijo o no se depende de ti, yo solo te ayude con la creacion del ODBC

Si te refieres a crear un DSN de usuario, fijate en: http://www.tek-tips.com/gfaqs.cfm/pid/222/fid/273 que tienes un ejemplo.