Error 3021

[natalyro]

HOla a todos los foreros.

estoy tratando de avanzar registros por un cliente y un producto dado pero cuando le doy siguiente me sale el error 3021.

Que podrá ser?

anexo mi codigo


Rs2.MoveNext el error me sale Aqui
If Rs2.EOF = True Then
MsgBox "Está en el ultimo"
Rs2.MovePrevious
End If
Text_Fecha.Text = Rs2.Fields("cot_date")
Text_Id.Text = Rs2.Fields("cot_number")
Combo_Cliente.Text = Rs2.Fields("search_name")
Cmb_Producto.Text = Rs2.Fields("search_desc")
Text_Product.Text = Rs2.Fields("item_no")
Text_Especific.Text = Rs2.Fields("Especific_prod")
'Text_Presentacion.Text = Rs2.Fields("item_desc_2")
'Text_Cantidad.Text = Rs2.Fields("qty_prod")
Text_Precio.Text = Rs2.Fields("prc_or_disc_1")
Text_Validez.Text = Rs2.Fields("end_prc")
Combo_terminos.Text = Rs2.Fields("pay_term")
'Cmb_Direccion.Text = Rs2.Fields("addr_1")
'Cmb_Moneda.Text = Rs2.Fields("cot_curr")
Combo_Vendedor.Text = Rs2.Fields("cot_sales")
'Text_Observ.Text = Rs2.Fields("cot_Observ")
'Rs2.Update
'Rs15.MoveNext


If IsNull(Rs2.Fields("qty_prod")) Then
Text_Cantidad.Text = ""
Else
Text_Cantidad.Text = Rs2.Fields("qty_prod")
End If

If IsNull(Rs2.Fields("addr_1")) Then
Cmb_Direccion.Text = ""
Else
Cmb_Direccion.Text = Rs2.Fields("addr_1")
End If

If IsNull(Rs2.Fields("item_desc_2")) Then
Text_Presentacion.Text = ""
Else
Text_Presentacion.Text = Rs2.Fields("item_desc_2")
End If

If IsNull(Rs2.Fields("cot_curr")) Then
Cmb_Moneda.Text = ""
Else
Cmb_Moneda.Text = Rs2.Fields("cot_curr")
End If

If IsNull(Rs2.Fields("cot_Observ")) Then
Text_Observ.Text = ""
Else
Text_Observ.Text = Rs2.Fields("cot_Observ")
End If