Visual Basic

Imports System.Data
Imports System.Data.OleDb

'Connection String for the Access Database
   Dim strCon As String = "Data Source=C:\Valuation Roll\ValuationRoll_CD.mdb; Provider=Microsoft.Jet.OLEDB.4.0;persist security info=False;User ID=Admin"

   Dim con As  new OleDbConnection(strCon) 'Declaring a Connection Object

   Dim cmdselect As new OleDbCommand 'Declaring a Command object

   Dim da As new OleDbDataAdapter 'Declaring an Adapter

       Dim dsdata As New DataSet

       cmdselect.CommandText = "SELECT * FROM mytable"

       cmdselect.CommandTimeout = 0

       cmdselect.CommandType = CommandType.Text

       cmdselect.Connection = con

       da.SelectCommand = cmdselect

       Try

           con.Open()

           dsdata.Clear()

           da.Fill(dsdata, "mytable")

           con.Close()

       Catch

           Throw

       End Try

Try


           datagrid1.DataSource = ds

           datagrid1.DataMember = "mytable"


       Catch ex As Exception
           MessageBox.Show(ex.Message)


       End Try

Public Sub CreateButton()
  With ActiveWorkbook.Sheets("sheet1").Buttons.Add(600, 20, 100, 25)
    .OnAction = "'Procedure1 ""Hello"", " & nCount & "'"
    .Caption = "Bills Not Paid July"
    .Name = "JULY"
  End With
End Sub

Public Sub Procedure1(ByVal s As String, ByVal x As Integer)
  MsgBox s & " " & x
End Sub

Public Sub CreateButton()
  With ActiveWorkbook.Sheets("sheet1").Buttons.Add(600, 20, 100, 25)
    .OnAction = "July_Click"
    .Caption = "Bills Not Paid July"
    .Name = "JULY"
  End With
End Sub

Public Sub July_Click()
  Call ActiveWorkbook.Application.Run("Procedure1", "test", nCount)
End Sub

Public Sub Procedure1(ByVal s As String, ByVal x As Integer)
  MsgBox s & " " & x
End Sub