Visual Basic

Private Sub OpenDataGrid()
        Dim sql As String
        '********************* Populate DataGrid *********************
        Try
            sql = "SELECT * FROM TempCreditors;"
            MyConn = New OleDbConnection
            MyConn.ConnectionString = connString
            ds = New DataSet
            tables = ds.Tables
            da = New OleDbDataAdapter(sql, MyConn)
            cm = New OleDbCommand(sql)
            da.TableMappings.Add("MyTables", "MyTables")
            da.FillSchema(ds, SchemaType.Source, "TempCreditors")

            da.Fill(ds, "TempCreditors")
            Dim view As New DataView(tables("TempCreditors"))
            grdDisplay.DataSource = ds
            grdDisplay.DataMember = ds.Tables("TempCreditors").TableName
        Catch ex As Exception
            MessageBox.Show("Unable to connect to database, or an error occurred.")
        End Try

        '********************* End Populate DataGrid ******************

        Binding_Source.DataSource = ds    'grdDisplay.DataSource
        Binding_Source.DataMember = ds.Tables("TempCreditors").TableName  'grdDisplay.DataMember

        'Bind Form's Textboxes
        txtCreditor.DataBindings.Add("text", Binding_Source, "Creditor", False)
        txtAmount.DataBindings.Add("Text", Binding_Source, "Amount", False)
        txtAmtPaid.DataBindings.Add("Text", Binding_Source, "Amt Paid", False)
        txtRemBal.DataBindings.Add("Text", Binding_Source, "Rem Bal", False)


        'Right Align GridView text
        grdDisplay.Columns("Amount").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        grdDisplay.Columns("Amt Paid").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        grdDisplay.Columns("Rem Bal").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        With grdDisplay
            'Set Column Properties
            .Width = 610
            .Columns("Creditor").Width = 250
            .Columns("Amount").DefaultCellStyle.Format = "c"
            .Columns("Amt Paid").DefaultCellStyle.Format = "c"
            .Columns("Rem Bal").DefaultCellStyle.Format = "c"

            'Hide Columns
            .Columns("ID").Visible = False
            .Columns("Due Date").Visible = False
            .Columns("Paid").Visible = False
            .Columns("Mid Month").Visible = False
            .Columns("End Month").Visible = False
            .Columns("Due Month").Visible = False
            '           .Columns("Rem Bal").Visible = False
            .Columns("Pay Date").Visible = False
            .Columns("Deduction").Visible = False
        End With

        'Bind Grid to Nav buttons
        MyCM = CType(BindingContext(Binding_Source), CurrencyManager)
        MyCM.Position = 0
        '        grdDisplay.Rows(0).Selected = True
    End Sub

Dim sql As String
 Dim connection As OleDbConnection
 Dim connetionString As String

 connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & PathCMDB() & "';"

 connection = New OleDbConnection(connetionString)
 connection.Open()

 Dim cmd As OleDbCommand = New OleDbCommand(sql, connection)

 cmd.CommandText = "ALTER TABLE [Machines] ADD [CNC_Folder] Text (255) NULL"

 cmd.ExecuteNonQuery()

 connection.Close()
 connection.Dispose()