datagrid连接数据库并显示及更新

导出数据到excel 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ''''    '创建一个空的Excel电子表格文档
        Dim AppExcel As Excel.Application = New Excel.Application
        AppExcel.Application.Workbooks.Add(True)
        ''''''读取数据的字段名称，并在产生的Excel表格的第一行显示出来
        Dim colIndex As Integer = 0
        Dim col As DataColumn = New DataColumn
        For Each col In ds.Tables(0).Columns
            colIndex = colIndex + 1
            AppExcel.Cells(1, colIndex) = col.ColumnName
        Next
        ''''''''实现数据集到Excel表格的转换
        Dim rowIndex As Integer = 1
        Dim row As DataRow
        For Each row In ds.Tables(0).Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            Dim col1 As DataCol