Visual Basic - Valores Nulos desde SP

Que tal. Espero puedan ayudarme.
Tengo un Stored Procedure en Vb6 con SQL Server.
Este me regresa una consulta y yo quiero guardar esos datos en un textbox.
Este es el codigo...

Dim cmdExiste As New ADODB.Command
varCodigo = frmCatalogoArti.txtCodigo.Text

Set cmdExiste = New ADODB.Command

With cmdExiste
.CommandText = "SP_findCodFact"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.ActiveConnection = dbConexion
.Parameters.Append .CreateParameter("camCodigo", adChar, adParamInput, 8, varCodigo)
End With

Set rsUno = cmdExiste.Execute

If rsUno.EOF = True And rsUno.BOF = True Then
MsgBox ("Código Inexistente")
frmCatalogoArti.txtCodigo.Text = ""
frmCatalogoArti.txtCodigo.SetFocus
Else
frmCatalogoArti.txtDescripcion.Text = Trim(rsUno.Fields(1).Value)'<--OJO AQUI
frmCatalogoArti.txtMarca.Text = Trim(rsUno.Fields(2).Value)'<--OJO AQUI

End If
Set cmdExiste.ActiveConnection = Nothing

Mi SP es un consulta de varios articulos por codigo, lo malo es que los campos que quiero guardar aceptan valores nulos.
Y cuando los quiero mostrar en los textbox y esos campos tienen valores nulos me truena
Alguna solucion, se los agradezco...

Hola, Brinklo !!!

Lo que puedes hacer es esto:

Dim cmdExiste As New ADODB.Command
varCodigo = frmCatalogoArti.txtCodigo.Text

Set cmdExiste = New ADODB.Command

With cmdExiste
.CommandText = "SP_findCodFact"
.CommandType = adCmdStoredProc
.Parameters.Refresh
.ActiveConnection = dbConexion
.Parameters.Append .CreateParameter("camCodigo", adChar, adParamInput, 8, varCodigo)
End With

Set rsUno = cmdExiste.Execute

If rsUno.EOF = True And rsUno.BOF = True Then
MsgBox ("Código Inexistente")
frmCatalogoArti.txtCodigo.Text = ""
frmCatalogoArti.txtCodigo.SetFocus
Else
frmCatalogoArti.txtDescripcion.Text = Trim(rsUno.Fields(1).Value)'<--OJO AQUI
frmCatalogoArti.txtMarca.Text = iff(isnull(Trim(rsUno.Fields(2).Value)),"",Trim(rsUno.Fields(2).Value))
End If
Set cmdExiste.ActiveConnection = Nothing

Espero te ayude.

Saludos!!

Pdta: Cualquier otra duda escribeme gustosamente respondere.

Creo que deberias previamente preguntar si el contenido de los campos es nulo y en su caso hacer textbox="" ejemplo:
if not Isnull(rsUno.Flields(1).value) then
frmCatalogoArti.txtDescripcion.Text = Trim(rsUno.Fields(1).Value)
else
frmCatalogoArti.txtDescripcion.Text=""
end if

Si, es exactamente lo que necesitaba, preguntar si era o no nulo, pero no sabia la sintaxis, jeje.
Ahora esta mas facil, gracias a ambos por su interes...
Hasta luego