Bom dia..

Estou com um problema, tenho que recuperar dados e inseri-los em um formulário, mas qdo tendo as vezes dá certo outas vezes não, percebi que se cadastra-los e em seguida fazer isso nao dará certo, mas se fechar e abri todo o sistema novamente da certo. O código q. estou utilizando é o seguinte:

 

Dim Criterio As String
'sqlstr_tri = "select * from triagem"

While Not objrs_tri.EOF
    DataTri = objrs_tri("tri_dt_cadastro")
    Criterio = objrs_tri("pacientes_pac_codigo")
    If HistoriaClinica.his_codigo_paciente = Criterio And DataTri = Date Then
    'If Then
      HistoriaClinica.his_pa = objrs_tri("tri_pa")
      HistoriaClinica.his_temperatura = objrs_tri("tri_temperatura")
      HistoriaClinica.his_peso = objrs_tri("tri_peso")
      HistoriaClinica.his_estatura = objrs_tri("tri_estatura")
    'End If
    End If
    objrs_tri.MoveNext
Wend