Private Sub cmdUpRolDia_Click()
Dim Temp As String, Item As Integer
Dim Items As Integer
Items = lstGuiasRolDia.ListCount
Item = lstGuiasRolDia.ListIndex
Si hay algn elemento seleccionado y no es el primero entonces lo remueve,
lo vuelve a agregar pero en una posicin un nivel mas arriba, y selecciona
dicha posicin
If Item > 0 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 Guas
For i = 0 To lstGuiasRolDia.ListCount - 1
   lstGuiasRolDia.ListIndex = i
CodGuia = Left(lstGuiasRolDia.Text, 4)
Item = lstGuiasRolDia.ListIndex + 1
ActualizaGuia = "Update Guias set Rol = " & Item & " where CodGuia = '" & CodGuia & "'"
db.Execute ActualizaGuia
Next i
End Sub
