Conexion de vb6.0 con sqlserver2000

[ares_legendary]

lo primero que debes hacer es generar una coneccion....

aqui hay un codigo que funciona

Private Sub cmdConectar_Click()
gsConectarSQLADO txtServidor.Text, lblBase.Caption, txtNombreUsuario.Text, txtPassword.Text
frmValidacionUsuario.Hide: frmInicio.Show
End Sub

Private Sub cmdCancelar_Click()
Dim R As Integer
R = MsgBox("Desea terminar? Esta accion cerrarà la ", vbYesNo, "Atención")
If R = vbYes Then
End
Else
End If
End Sub

Private Sub Form_Activate()
txtClave.SetFocus
End Sub

Private Sub txtNombreUsuario_GotFocus()
txtNombreUsuario.SelStart = 0
txtNombreUsuario.SelLength = Len(txtClave)
End Sub

Private Sub txtPassword_GotFocus()
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword)
End Sub




lo que sigue lo montas en un modulo


Public Sub gsConectarSQLADO(sServer As String, sNombBD As String, sGrupo As String, sPwd As String)
Set Conexion = New ADODB.Connection
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




como te puedes dar cuenta el codigo esta montado en un formulario de validacion de usuario que una ves autentica el usuario sql permite el paso a un segundo formulario en el que puede hacer las operaciones que quieras con la base de datos


espero que te sirva