cargar dato especifico

[william_085]

hola, tengo un programa que me cargaba 2 tablas en un mshflexgrid y en un campo llamado subtotal me mandala informacion del subtotal del dia, pero de un momento hacia aca ya no me hace eso, no se que paso, creo que fue por que instale la actualizacion del vb sp6

lo tengo asi

Dim fecha As Date

' adoPrimaryRS.MoveFirst
Do While i < MSHFlexGrid1.Rows



Dim adoPrimaryRS As New ADODB.Recordset



Set adoPrimaryRS = New ADODB.Recordset

Dim sql As String


adoPrimaryRS.CursorLocation = adUseClient
sql = "Select * From Pedidos Where pedido = '" & MSHFlexGrid1.TextMatrix(i, 2) & "' And Fecha = #" & Date & "#"
adoPrimaryRS.Open sql, cnn, adOpenStatic, adLockOptimistic



If adoPrimaryRS.RecordCount > 0 Then
adoPrimaryRS.MoveFirst
MSHFlexGrid1.TextMatrix(i, 4) = adoPrimaryRS!total
adoPrimaryRS.MoveNext



Else

MSHFlexGrid1.TextMatrix(i, 4) = "0"
MSHFlexGrid1.TextMatrix(0, 4) = "Subtotal"
End If

i = i + 1
Loop

asi me funcionaba pero ahora ya no, no se que paso