Combo Refreshes with form Me.Refresh

I have a very complicated problem

In my form, I have command button 25,26,27 that refresh the forms to get the values in the forms text field. I have a combo box there too. I choose the value from combo55 and then enter what I need to enter and then click the buttons 36, 26 and 25 accordingly. All three of the buttons run three different queries and represent the user with the values in same form.
Now problem is that when I click any of those buttons, it refreshes my form and I loose the focus of the selected item in the combo box and it gets selected at its default value for the first item in the combo box list. What I want to do is some how control that combobox so whatever happens when its value is selected it couldn't be changed on form refresh, unless the form is closed and reopened.

here are some codes for experts

Combo Box:

Row Source:
SELECT tbl.EmployeeID, tbl.FirstName, tbl.LastName, tbl.Number, tbl.Returned, tbl.ReturnDate, tbl.DateA, tbl.IDNUMBER FROM tbl WHERE (((tbl.Returned)=-1) AND ((tbl.Paid)=0)) ORDER BY tbl.FirstName, tbl.LastName;

Column Count: 8
Column Heads: Yes
Column Width: 0";1",1",1";1"
Bound Column; 1
List Row: 8
List Width: 3"


Form:

Private Sub Command25_Click()
On Error GoTo Err_Command25_Click

    Dim stDocName As String

    stDocName = "less80"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.Refresh
Exit_Command25_Click:
    Exit Sub

Err_Command25_Click:
    MsgBox Err.Description
    Resume Exit_Command25_Click
   
End Sub
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

    Dim stDocName As String

    stDocName = "over80"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.Refresh

Exit_Command26_Click:
    Exit Sub

Err_Command26_Click:
    MsgBox Err.Description
    Resume Exit_Command26_Click
   
End Sub
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

    Dim stDocName As String

    stDocName = "Macro4"
    DoCmd.RunMacro stDocName
    Me.Refresh
Exit_Command27_Click:
    Exit Sub

Err_Command27_Click:
    MsgBox Err.Description
    Resume Exit_Command27_Click
   
End Sub





Private Sub Form_BeforeUpdate(Cancel As Integer)
Me![mydate].Value = Format(Now(), "MM/DD/YY")
End Sub

Private Sub Form_Close()
Me.Refresh
End Sub

Private Sub Form_Current()
Me![mydate].Value = Format(Now(), "MM/DD/YY")
End Sub

Private Sub Form_Load()
DoCmd.SetWarnings False
End Sub

Private Sub Command36_Click()
On Error GoTo Err_Command36_Click

    Dim stDocName As String

    stDocName = "percent"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.Refresh
   
   
Exit_Command36_Click:
    Exit Sub

Err_Command36_Click:
    MsgBox Err.Description
    Resume Exit_Command36_Click
   
End Sub

Private Sub Command38_Click()
On Error GoTo Err_Command38_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.PrintOut acSelection

Exit_Command38_Click:
    Exit Sub

Err_Command38_Click:
    MsgBox Err.Description
    Resume Exit_Command38_Click
   
End Sub


Private Sub Command60_Click()
On Error GoTo Err_Command60_Click


    DoCmd.Close

Exit_Command60_Click:
    Exit Sub

Err_Command60_Click:
    MsgBox Err.Description
    Resume Exit_Command60_Click
   
End Sub
Private Sub Command61_Click()
On Error GoTo Err_Command61_Click

    Dim stDocName As String

    stDocName = "Employees"
    DoCmd.OpenReport stDocName, acPreview

Exit_Command61_Click:
    Exit Sub

Err_Command61_Click:
    MsgBox Err.Description
    Resume Exit_Command61_Click
   
End Sub
Private Sub closeopenform_Click()
On Error GoTo Err_closeopenform_Click

    Dim stDocName As String

    stDocName = "closeopenmaxpayout1"
    DoCmd.RunMacro stDocName

Exit_closeopenform_Click:
    Exit Sub

Err_closeopenform_Click:
    MsgBox Err.Description
    Resume Exit_closeopenform_Click
   
End Sub


Private Sub PAYthem_Click()
CurrentDb.Execute _
    "update tbl set Paid = -1 Where IDNumber=" & Me.Listemploypay.Column(7)
   
On Error GoTo Err_closeopenform_Click

    Dim stDocName As String

    stDocName = "closeopenmaxpayout1"
    DoCmd.RunMacro stDocName

Exit_closeopenform_Click:
    Exit Sub

Err_closeopenform_Click:
    MsgBox Err.Description
    Resume Exit_closeopenform_Click
End Sub


Hope someone has answer for this. Thanks