Private Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
fCancelDisplay = True
End Sub


Private Sub Command2_Click()

sBase = Label3.Caption

    
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset


End Sub


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

    For i = 0 To DataGrid1.ApproxCount - 1

        Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
        DoEvents
    Next

    Text2.Text = Datos
End Sub


Private Sub mnuAbrir_Click()
On Error GoTo err
cmd.Filter = "Base de datos (*.mdb)|*.mdb"
cmd.ShowOpen
sBase = cmd.FileName
Label3.Caption = cmd.FileName
    
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset

Exit Sub
err:
End Sub

Private Sub mnusalir_Click()
End
End Sub