SoloCodigo

Hola Aura, te estoy agradecido por tratar de solucionar mi pequeño problema, lo que me planteas ya lo tengo en el codigo, pero no me refresca por eso hice el planteamiento para ver como me pueden orientar, te muestro cual es el codigo para ver si me puesdes orientar, el codigo es el siguiente:

Private Sub combomes_Click()
     Select Case combomes.Text
        Case Is = "Enero"
            Mes = 1
        Case Is = "Febrero"
            Mes = 2
        Case Is = "Marzo"
            Mes = 3
        Case Is = "Abril"
            Mes = 4
        Case Is = "Mayo"
            Mes = 5
        Case Is = "Junio"
            Mes = 6
        Case Is = "Julio"
            Mes = 7
        Case Is = "Agosto"
            Mes = 8
        Case Is = "Septiembre"
            Mes = 9
        Case Is = "Octubre"
            Mes = 10
        Case Is = "Noviembre"
            Mes = 11
        Case Is = "Diciembre"
            Mes = 12
    End Select
    Call actualizar_consulta
End Sub

Private Sub actualizar_consulta()
 
  If DE_SICPOS.rsCmEgresos.State = adStateOpen Then
     DE_SICPOS.rsCmEgresos.Close
  End If
   
  ConsultaSQL = "SELECT egresos.fechegre_egr, clasif_egreso.descripegre_claeg, egresos.mtoegre_egr , egresos.obseregre_egr From clasif_egreso, egresos WHERE clasif_egreso.codegre_claeg = egresos.codegre_egr AND Month(fechegre_egr) = mes ORDER BY egresos.fechegre_egr"
   
  DE_SICPOS.Commands("cmegresos").CommandText = ConsultaSQL
  DE_SICPOS.Commands("cmegresos").CommandType = adCmdText
  DE_SICPOS.Recordsets("cmegresos").LockType = adLockReadOnly
  DE_SICPOS.Recordsets("cmegresos").Open
 
  DE_SICPOS.Recordsets("cmegresos").Requery
 
  Set DataGrid1.DataSource = DE_SICPOS
  DataGrid1.Refresh
 
  Call Transf_Mes '/*********** llamado a la rutina del nombre de mes
  DataGrid1.Caption = "RELACION DE EGRESOS DEL MES DE  " + NomMes
  DataGrid1.Columns(0).Caption = "Fecha"
  DataGrid1.Columns(0).Width = 1000
  DataGrid1.Columns(1).Caption = "Descripción"
  DataGrid1.Columns(1).Width = 3000
  DataGrid1.Columns(2).Caption = "Monto"
  DataGrid1.Columns(2).Alignment = dbgRight
  DataGrid1.Columns(2).NumberFormat = "##,###0.00"
  DataGrid1.Columns(2).Width = 2500
  DataGrid1.Columns(3).Caption = "Observaciones"
  DataGrid1.Columns(3).Width = 3000
 
End Sub


Private Sub Transf_Mes()
    Select Case Mes
        Case Is = 1
            NomMes = "ENERO"
        Case Is = 2
            NomMes = "FEBRERO"
        Case Is = 3
            NomMes = "MARZO"
        Case Is = 4
            NomMes = "ABRIL"
        Case Is = 5
            NomMes = "MAYO"
        Case Is = 6
            NomMes = "JUNIO"
        Case Is = 7
            NomMes = "JULIO"
        Case Is = 8
            NomMes = "AGOSTO"
        Case Is = 9
            NomMes = "SEPTIEMBRE"
        Case Is = 10
            NomMes = "OCTUBRE"
        Case Is = 11
            NomMes = "NOVIEMBRE"
        Case Is = 12
            NomMes = "DICIEMBRE"
    End Select

End Sub

ves eso es lo que tengo y no se si esta bien o como pudiera hacerlo de otra forma, si sabes algo te lo agradezco desde ya..... Saludos y espero que me puedas ayudar gracias nuevamente