[Resolvido]Ajuda com função CreateDSNConnection

Boa noite pessoal,

Estou tentado criar conexão DAO.Método RegisterDatabase, que cria DSN automaticamente sem que seja necessário a intervenção de um técnico nas máquinas aonde o banco for utilizado. Fui no site http://support.microsoft.com/kb/892490 e achei o código abaixo só que a conexão é criada com o usuário que está logado no equipamento (MS-AD) mais preciso que ele crie a conexão com um usuário que eu determine e que eu criei no servidor SQL. Vi que aqui tem alguns exemplos que usam  o AttachDSNLessTable, mais eu preciso que todas as tabelas estejam vinculadas ao Servidor. Tentei mudar o código mais não deu certo. Por favor, preciso dessa ajuda de vocês.



'//Name     :   CreateDSNConnection
'//Purpose  :   Create a DSN to link tables to SQL Server
'//Parameters
'//     stServer: Name of SQL Server that you are linking to
'//     stDatabase: Name of the SQL Server database that you are linking to
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//     stPassword: SQL Server user password
Function CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean
   On Error GoTo CreateDSNConnection_Err

   Dim stConnect As String
   
   If Len(stUsername) = 0 Then
       '//Use trusted authentication if stUsername is not supplied.
       stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr & "Trusted_Connection=Yes"
   Else
       stConnect = "Description=myDSN" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr
   End If
   
   DBEngine.RegisterDatabase "myDSN", "SQL Server", True, stConnect
       
   '// Add error checking.
   CreateDSNConnection = True
   Exit Function
CreateDSNConnection_Err:
   
   CreateDSNConnection = False
   MsgBox "CreateDSNConnection encountered an unexpected error: " & Err.Description
   
End Function



Na macro Autoexec que criei coloco:

CreateDSNConnection ("IP do servidor", "Meu banco de dados", "meu usuário do Sql Server", "senha")


Agradeço quem puder me auxiliar,


Abraços,