Hola lo que deseas hacer es recorrer los registros con botones <<, <, >, >> osea inicio, anterior, siguiente y ultimo verdad? pues si es asi haslo de esta manera:
creas los cuatro botones y le pones a todos el mismo nombre para crear una matriz de controles, te preguntara: Ya existe un control llamado "nombrequeasignes" ¿Desea crear una matriz de controles? le das si
y en el evento click de cualquier de los 4 botones pones este codigo:
Código PHP:
If rs2.RecordCount > 0 Then
Select Case Index
Case 0
rs2.MoveFirst
Case 1
rs2.MovePrevious
If rs2.BOF Then
rs2.MoveFirst
End If
Case 2
rs2.MoveNext
If rs2.EOF Then
rs2.MoveLast
End If
Case 3
rs2.MoveLast
End Select
Call llenadatos
End If
y en luego creas un sub
Código PHP:
Sub llenadatos() //aqui pones lo siguiente
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")
End Sub
y una cosa para ver si esta vacio tu pones de esta manera:
Código PHP:
If IsNull(Rs2.Fields("qty_prod")) Then
Text_Cantidad.Text = ""
Else
Text_Cantidad.Text = Rs2.Fields("qty_prod")
End If
eso lo puedes reemplazar solo por esto:
Código PHP:
Text_Cantidad.Text = "" & Rs2.Fields("qty_prod")
espero que te sirva.
Saludos.