debes utilizar estas mismas funciones
Public Sub DSN()
rc = SQLServerDSN("Prueba", "192.168.0.1", "Prueba")
End Sub
Public Function SQLServerDSN(DSNName As String, ServerName As String, Database As String) As Boolean
Dim sAttributes As String
sAttributes = "DSN=" & DSNName & Chr(0)
sAttributes = sAttributes & "Server=" & ServerName & Chr(0)
sAttributes = sAttributes & "Database=" & Database & Chr(0)
SQLServerDSN = CreaDSN("SQL Server", sAttributes)
End Function
Public Function CreaDSN(Driver As String, Attributes As String) As Boolean
CreaDSN = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, Driver, Attributes)
End Function
y al momento de llamar el DSN lo haces de la siguiente manera
coneccion.Open "DSN=Prueba", "usuario", "contraseña", 0
y listo te hace la conexion, debes de tener tu servidor de SQL con autentificacion mixta, para que te lo acepte