COMO PUEDO conectar VB6 con SQL server

Lalo-K
16 de Agosto del 2004
tienen alguien algun codigo para conectar VB6 con SQL server por favor?
TENGO MI BD en el enterprise manager de sql server, pero quiero saber como conectarme a la bd, que necesito o como comienzo??
si pueden por favor me podrian mandar una sentencia de sql para saber como concatenar cadenas.
Gracias!!!!

Ricardo
16 de Agosto del 2004
Global Pcn As New ADODB.Connection
Function Finic(Diform As MDIForm) As Boolean
On Error GoTo HandleError
If IniVar = False Then Exit Function
Pcn.CursorLocation = adUseClient
Pcn.Open "PROVIDER=sqloledb;driver={SQL Server};server=" & GServer & ";uid=" & GUID & ";pwd=" & Gpass & ";database=" & GNameDBase & ";TIMEOUT=100"
If XGetMenu = False Then
MsgBox "No Se establecieron los Parametros Necesarios..", vbInformation
Exit Function
End If
Set OlddiFrm = Diform
Call Fnc_InicializarVarSis
Finic = True
Exit Function
HandleError:
'If Err.Number = 3024 Then
' MsgBox "Error 01: No es posible tener acceso al sistema, por que un componente asociado no a sido encontrado en la ruta establecida..", vbExclamation + vbOKOnly, "Mensaje del Sistema"
'
'End If
MsgBox Err.Number & ": " & Err.Description, vbCritical, " Error del sistema."
Err.Clear
Exit Function
End Function