conecta a base de datos de vb 6.0 a sql 2000 server

[reel]

A continuación se presenta un ejemplo del MSDN para trabajor con ADO desde código, talvez te guste trabjar más de esta forma.

Código:

Public Sub OpenX()

   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim varDate As Variant

   ' Abre una conexión.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Abre la tabla Empleados.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "empleado", cnn1, , , adCmdTable

   ' Asigna la fecha de contratación del registro del primer empleado
   ' a una variable y, después, cambia la fecha de contratación.
   varDate = rstEmployees!hire_date
   Debug.Print "Datos originales"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date
   rstEmployees!hire_date = #1/1/1900#
   rstEmployees.Update
   Debug.Print "Datos que han cambiado"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   ' Vuelve a consultar el objeto Recordset y restablece la 
   ' fecha de contratación.
   rstEmployees.Requery
   rstEmployees!hire_date = varDate
   rstEmployees.Update
   Debug.Print "Datos después de restablecer."
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   rstEmployees.Close
   cnn1.Close

End Sub

Saludes