If Not frm1.rst.EOF Then
txt_dimccodigo = frm1.rst(0)
txt_dimcdescripcion = frm1.rst(1)
txt_dimcpadre = frm1.rst(2)
txt_dimccuenta = frm1.rst(3)
txt_dimccontrato = frm1.rst(4)
txt_dimcconcepto = frm1.rst(5)
txt_dimcproceso = frm1.rst(6)
frm1.rst.MoveNext
End If

If Not frm1.rst.EOF Then
frm1.rst.MovePrevious
txt_dimccodigo = frm1.rst(0)
txt_dimcdescripcion = frm1.rst(1)
txt_dimcpadre = frm1.rst(2)
txt_dimccuenta = frm1.rst(3)
txt_dimccontrato = frm1.rst(4)
txt_dimcconcepto = frm1.rst(5)
txt_dimcproceso = frm1.rst(6)
End If

While frm1.rst.EOF
            frm1.rst.MoveFirst
            txt_dimccodigo = frm1.rst(0)
            txt_dimcdescripcion = frm1.rst(1)
            txt_dimcpadre = frm1.rst(2)
            txt_dimccuenta = frm1.rst(3)
            txt_dimccontrato = frm1.rst(4)
            txt_dimcconcepto = frm1.rst(5)
            txt_dimcproceso = frm1.rst(6)
        
            frm1.rst.MoveNext
        Wend

Dim tField As ADODB.Field
  
rst.Open "select pub_codcontrato from vsp_contrcue", cnn, adOpenDynamic, adLockOptimistic

        combo1.Clear
        For Each tField In rst.Fields
        combo1.AddItem tField.Name
        Next
        combo1.ListIndex = 0

rst.Close

rst.Open "SELECT name FROM master.dbo.sysdatabases", cnn, adOpenDynamic, adLockOptimistic
With cbo_db
        .Clear
        For Each tField In rst.Fields
            .AddItem tField.Name
        Next
        .ListIndex = 0
    End With
rst.Close