Problema con una consulta vb6!!

[spike01]

hola a todos eh estado haiendo una aplicacion pequeña en vb6 con access 2000
y cuando estoy haciendo una consulta para extraer unos datos de 2 tablas me sale un error "linea de color" y no se como solucionarlo, alguien puede hacerme el gran favor de colaborarme, le estare agradecido de antemano...

Private Sub Command1_Click()

If Not IsNumeric(Text1.Text) Or IsNull(Text1.Text) Then
MsgBox "Por favor ingrese el N° de Factura...", 64, "Shadesoft"
Text1.SetFocus
Else
SQLStmt = " select * From ARTICULO, CLIENTE where n_factura = " & CInt(Text1.Text) & " and ARTICULO.cedula = CLIENTE.cedula "
Set RS = Connection.Execute(SQLStmt)
If RS.EOF = True Or RS.BOF = True Then
MsgBox "No hay informacion sobre esta Factura...", 64, "Shadesoft"
Command2.Visible = True
Else
Text1.Text = RS!n_factura
Text2.Text = RS!nom
Text3.Text = RS!ape
Text4.Text = RS!dir_casa
Text5.Text = RS!dir_tra
Text6.Text = RS!tel_casa
Text7.Text = RS!dir_tra
Text8.Text = RS!celu
Text10.Text = RS!v_total
Text11.Text = RS!n_cuota_total
Text12.Text = RS!n_cuota_rest
While Not RS.EOF
List1.AddItem RS!arti
RS.MoveNext
Wend

Text13.Text = RS!cedula
End If
End If
End Sub