Crear DSN desde visual basic 6 con autentificacion de SQL Server 2000

[georgeovando]

Hola amigos, fijense que tengo una aplicacion, creada en vb6 y pues me crea bien los DSN, pero utilizando la Autentificacion de Windows. ahora el problema esta, en que quiero utilizar la autentificacion de SQL Server, pero no se como hacerlo. Asi creo mi conexion DSN desde vb6 utilizando la autentificacion de windows:

Public Sub DSN()

rc = SQLServerDSN("Bodega2", "192.168.2.2", "Bodega2")

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 & "Trusted_Connection=True" & 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

Con este codigo me crea muy bien los DSN, consulte con un amigo por internet y me dijo que le quitara esta linea de la segunda funcion.

sAttributes = sAttributes & "Trusted_Connection=True" & Chr(0)

y pues modifique el codigo para poner el usuario y contraseña con el que se autentifica en SQL server, pero no me crea nada, el Codigo lo deje asi:

Public Sub DSN()

rc = SQLServerDSN("Bodega2", "192.168.2.2", "Bodega2")

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)
sAttributes = sAttributes & "UID= Xela" & Chr(0)
sAttributes = sAttributes & "PSW = Panda" & 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

Pero nada no me crea los dsn, las funciones siempre me devuelven un valor falso, alguien me puede ayudar, la verdad me urge un poco.... Gracias y espero toda la ayuda posible...