Mira te paso un ejemplo completo de como hago una conexcion, una consulta y como manejo el resultado de esa consulta (RecordSet), problema en tener VB6 y SQL en la misma maquina lo dudo compa;era... Espero te sirva... Oye lo mas probable es que te digan que esto esta mas relacionado con VB que con SQL y que tu post esta fuera de lugar, jeje te lo digo por experiencia...
Código vb:
Ver originalDim cn As ADODB.Connection
Dim rsItems As ADODB.Recordset
Dim cmdItems As ADODB.Command
Dim sQryItems As String
Dim i As Integer
'//Establezco la conexion a la BD, declaro la BD a conectar, y su respectivo
'//nombre de usuario y contraseña
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=" & Nombre_Servidor & ";Initial Catalog=Base_Datos;User ID=" & _
Constantes.strUser & ";Password=" & Contrase;a
'//Obtengo la descripcion del Item
Set cmdItems = New ADODB.Command
Set cmdItems.ActiveConnection = cn
'//Consulta
sQryItems = ""
sQryItems = "SELECT Item_Desc" & vbCrLf & _
"FROM tblCatalogo_DD_SC" & vbCrLf & _
"WHERE Item =" & Chr(39) & "M-" & Variables.sItem_DD & Chr(39)
With cmdItems
.CommandText = sQryItems
.CommandType = adCmdText
End With
Set rsItems = New ADODB.Recordset
Set rsItems.ActiveConnection = cn
rsItems.Open cmdItems
If Not (rsItems.EOF = True) Then
rsItems.MoveFirst
'//Guardo la descripcion
sDesItemVer = Trim(rsItems.Fields(0).Value)
'//Compa;era aizurieta si el recordset tiene varios registros lo puedes
'//recorrer de la siguiente manera
i = 1
Do While (rsItems.EOF = False)
MsgBox "Mostrar Registro " & i & " " & rsItems.Fields(0).Value"
i=i+1
rstItems.MoveNext
Loop
End If
'//Descargo las variables, para volverlas a usar.
Set rsItems = Nothing
Set cmdItems = Nothing
'//Cierro la conexion
cn.Close
Set cn = Nothing