Private Sub InitializeDataGridView()
        Try
            ' Set up the DataGridView.
            With Me.dataGridView1
                ' Automatically generate the DataGridView columns.
                .AutoGenerateColumns = True
 
                ' Set up the data source.
                bindingSource1.DataSource = GetData("SELECT * FROM IOList")
                .DataSource = bindingSource1
 
                ' Automatically resize the visible rows.
                .AutoSizeRowsMode = _
                    DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
 
                ' Set the DataGridView control's border.
                .BorderStyle = BorderStyle.Fixed3D
 
                ' Put the cells in edit mode when user enters them.
                .EditMode = DataGridViewEditMode.EditOnEnter
            End With
        Catch ex As SqlException
            MessageBox.Show("To run this sample replace " _
                & "connection.ConnectionString with a valid connection string" _
                & "  to a Northwind database accessible to your system.", _
                "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            System.Threading.Thread.CurrentThread.Abort()
        End Try
    End Sub
 
 
    Private Shared Function GetData(ByVal sqlCommand As String) _
    As DataTable
 
 
 
        Dim connectionString As String = "Data Source=F:\Temp\Liste.accdb"
 
        Dim northwindConnection As SqlConnection = New SqlConnection( _
          connectionString)
 
        Dim command As New SqlCommand(sqlCommand, northwindConnection)
        Dim adapter As SqlDataAdapter = New SqlDataAdapter()
        adapter.SelectCommand = command
 
        Dim table As New DataTable
        table.Locale = System.Globalization.CultureInfo.InvariantCulture
        adapter.Fill(table)
 
        Return table
 
    End Function