Private Sub cmdDownRolDia_Click()
Dim Temp As String
Dim Item As Integer
Dim CodGuia As String
Dim ActualizaGuia As String

Item = lstGuiasRolDia.ListIndex
Si hay algn elemento seleccionado y no es el ultimo entonces lo remueve,
lo vuelve a agregar pero en una posicin un nivel mas abajo, y selecciona
dicha posicin
If Item > -1 And Item < lstGuiasRolDia.ListCount - 1 Then
Temp = lstGuiasRolDia.List(Item)
lstGuiasRolDia.RemoveItem Item
lstGuiasRolDia.AddItem Temp, Item + 1
lstGuiasRolDia.ListIndex = Item + 1
End If
Lee todos los Guas, de la lista y actualiza su rol en la Tabla Guias
For i = 0 To lstGuiasRolDia.ListCount - 1
    lstGuiasRolDia.ListIndex = i
CodGuia = Left(lstGuiasRolDia.Text, 4)
Item = lstGuiasRolDia.ListIndex + 1
ActualizaGuia = "Update Guias set RolActual = " & Item & " where CodGuia = '" & CodGuia & "'"
db.Execute ActualizaGuia
Next i
End Sub
