Problemas para conectar VB6 con sql

[a83]

Tengo problema para conectarme con vb6 a Sql.

Código PHP:

  Option Explicit 
Global oDb As ADODB.Connection  'Para SQL Server 
Global oRs As ADODB.Recordset 
 
Set oDb = New ADODB.Connection 
 
With oDb 
.Provider = Proveedor$ 
 .Properties("User ID").Value = usr_ 
 
.Properties("Password").Value = usr_a 
 
. Properties("Initial Catalog"). Value = CHLT\local 
 
.Properties("Data Source").Value = AIU_Global 
End With 
'Verifico la conexion, por si las dudas 
If oDb.State <> adStateOpen Then 
Reabro la conexión 
oDb.Open 
End If  
   

No logro conectarme y no me envia errol alguno
puede s er que este mal echo?

[a83]

Código PHP:

  Public gsServidor As String 
Public gsUsuario As String 
Public gsPassword As String 
 
Public Conn As New ADODB.Connection 
Public msConexion As String 
Public mbEvento_Click As Boolean 
Public mbCreaArchivo As Boolean 
 
Public Sub sConectarSQLADO(ByVal sServer As String, ByVal sNombBD As String, _ 
    ByVal sGrupo As String, ByVal sPwd As String) 
     
    msConexion = "PROVIDER=SQLOLEDB; DATA SOURCE=" & sServer & ";DATABASE=" & sNombBD & ";" 
    Conn.Open msConexion, sGrupo, sPwd 
End Sub  
   

este otro tampoco me funciona no entiendocual es el error si no envia ningun mensaje

[a83]

me puedo conectar pero desde un formulario donde tengo que ingresar los datos del servidor ej :
servidor, Base datos, clave,

bueno mi idea es que se conecte directo sin que este solicitando esto

este es el codigo que ingreso

Código PHP:

  Private Sub cmdAceptar_Click() 
    gsConectarSQLADO txtServidor.Text, txtBase.Text, txtClave.Text, txtPassword.Text 
    gsFormatoFecha = sObtieneFormatoDeFecha(Conexion, dbtSQLServer) 
    gsFormatoFechaHora = sObtieneFormatoDeFecha(Conexion, dbtSQLServer) & " hh:mm" 
    frmpassword.Hide: MDImain.Show 
End Sub  
   

y este es el modulo de conexion

Código PHP:

  Public Conexion As Connection 
Global gsCadenaConexion As String 
Global glUsuaCode As Long 
 
** Formato de Fecha y Hora del Sistema 
Global gsFormatoFecha As String 
Global gsFormatoFechaHora As String 
 
Public Enum enDBTypes 
    dbtSQLServer 
    dbtAccess 
End Enum 
 
 
Public Sub Main() 
Set Conexion = New ADODB.Connection 
    glUsuaCode = 1 
    frmpassword.Show 
End Sub 
 
Public Sub gsConectarSQLADO(sServer As String, sNombBD As String, sGrupo As String, sPwd As String) 
     
Dim sConexion As String 
On Error GoTo Error 
    sConexion = "PROVIDER=SQLOLEDB; DATA SOURCE=" & sServer & ";DATABASE=" & sNombBD & ";" 
    Conexion.Open sConexion, sGrupo, sPwd 
Exit Sub 
Error: 
    MsgBox Err.Description, vbInformation, Err.Number 
    End 
End Sub  
   

de que manera lo puedo dejar directo ayuda por favor