อยากทราบวิธีการติดต่อฐานข้อมูลSQL Exportไปยัง Excel โดย Vb2008

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel

Namespace ExcelC
	Public Partial Class frmExcel
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub btnExcel_Click(sender As Object, e As EventArgs)
			Dim xlApp As Excel.Application
			Dim xlWorkBook As Excel.Workbook
			Dim xlWorkSheet As Excel.Worksheet
			Dim mis As Object = Type.Missing

			Dim strFileName As String = "C:\ExcelC\Xls\GenExcel.xls"

			xlApp = New Excel.ApplicationClass()
			xlWorkBook = xlApp.Workbooks.Add(mis)

			'xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.Add(mis, mis, mis, mis); /*** for Add New Sheet ***/
			xlWorkSheet = DirectCast(xlWorkBook.Worksheets.get_Item(1), Excel.Worksheet)
			xlWorkSheet.Name = "My Sheet"
			xlWorkSheet.Cells(1, 1) = "www.ThaiCreate.Com"
			xlWorkSheet.Cells(2, 1) = "Mr.Weerachai Nukitram"

			xlWorkBook.SaveAs(strFileName, mis, mis, mis, mis, mis, _
				Excel.XlSaveAsAccessMode.xlExclusive, mis, mis, mis, mis, mis)
			xlWorkBook.Close(True, mis, mis)
			xlApp.Quit()

			System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
			System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
			System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet)

			xlApp = Nothing
			xlWorkBook = Nothing
			xlWorkSheet = Nothing
			GC.Collect()

			MessageBox.Show("Generate Successfully")

		End Sub

	End Class
End Namespace

  Dim xlapp As New Excel.Application
        Dim ra As Excel.Range

        On Error Resume Next
        xlapp = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
            xlapp = New Excel.Application
        End If
        xlapp.Visible = True
        xlapp.Workbooks.Add()
        ra = xlapp.ActiveCell
        With DataGridView1
            For i As Integer = 0 To .RowCount - 1
                For j As Integer = 0 To .ColumnCount - 1
                    ra.Offset(i, j).Value = .Rows(i).Cells(j).Value
                Next
            Next
        End With

        private void Export()
        {
            SqlConnection cnn;
            string connectionString = null;
            string sql = null;
            string data = null;
            int i = 0;
            int j = 0;

            Excel.Application xlApp;
            Excel.Workbook xlWorkBook;
            Excel.Worksheet xlWorkSheet;
            object misValue = System.Reflection.Missing.Value;

            xlApp = new Excel.Application();
            xlWorkBook = xlApp.Workbooks.Add(misValue);
            xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1);

            connectionString = @"Data Source=LIVERPOOL-PC\SQLEXPRESS;Initial Catalog=Databases;User ID=sa;Password=1234";
            cnn = new SqlConnection(connectionString);
            cnn.Open();
            sql = "Select SC.Customer_Name,SC.Customer_Phone,SC.Customer_Model,SC.Customer_SN,SC.Customer_Query,SC.Customer_Edit,SC.Customer_In,SC.Customer_State From Customers C,SaveCustomers SC Where C.SCT_ID = SC.SCT_ID AND C.SCT_ID = '" + textBox7.Text + "'";
            SqlDataAdapter dscmd = new SqlDataAdapter(sql, cnn);
            DataSet ds = new DataSet();
            dscmd.Fill(ds);

            for (i = 0; i <= ds.Tables[0].Rows.Count - 1; i++)
            {
                for (j = 0; j <= ds.Tables[0].Columns.Count - 1; j++)
                {
                    data = ds.Tables[0].Rows[i].ItemArray[j].ToString();
                    xlWorkSheet.Cells[i + 1, j + 1] = data;
                }
            }

            xlWorkBook.SaveAs("csharp.net-informations.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue);
            xlWorkBook.Close(true, misValue, misValue);
            xlApp.Quit();
        }
        private void releaseObject(object obj)
        {
            try
            {
                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj);
                obj = null;
            }
            catch (Exception ex)
            {
                obj = null;
                MessageBox.Show("Exception Occured while releasing object " + ex.ToString());
            }
            finally
            {
                GC.Collect();
            }
        }