สอบถามปัญหาการ insert sql2000 โดยใช้ loop for แต่มันลงฐานข้อมูลแค่คนเดียวครับ(ดึงข้อมูลมาจาก Excel) .net 2005 ครับ

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        ' Import Excel Data To DataTable
        Dim sqlQuery As String = "SELECT * FROM [ต้นฉบับ$]"
        Dim objCommQuery As New OleDbCommand(sqlQuery, Conn1)
        Dim Dt As DataTable
        Dim objDataAdapter1 As New OleDbDataAdapter(objCommQuery)
        objDataAdapter1.Fill(Dt)

        ' Import DataTable To Sql Server Database
        Dim sqlInsert As String = "INSERT INTO [Graduate] ([GdtID], [EdtID], [GdtRank], [GdtTitle], [GdtFname], [GdtLname], [GdtAdd], [GdtTumbol], [GdtAumphur], [GdtProName], [GdtProID], [GdtHonor]) VALUES (@GdtID, @EdtID, @GdtRank, @GdtTitle, @GdtFname, @GdtLname, @GdtAdd, @GdtTumbol, @GdtAumphur, @GdtProName, @GdtProID, @GdtHonor)"
        Dim objCommInsert As New OleDbCommand(sqlInsert, Conn)
        objCommInsert.Parameters.Add("@GdtID", SqlDbType.NVarChar, 50, "Field1") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@EdtID", SqlDbType.NVarChar, 50, "Field2") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtRank", SqlDbType.NVarChar, 50, "Field3") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtTitle", SqlDbType.NVarChar, 50, "Field4") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtFname", SqlDbType.NVarChar, 50, "Field5") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtLname", SqlDbType.NVarChar, 50, "Field6") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtAdd", SqlDbType.NVarChar, 50, "Field7") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtTumbol", SqlDbType.NVarChar, 50, "Field8") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtAumphur", SqlDbType.NVarChar, 50, "Field9") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtProName", SqlDbType.NVarChar, 50, "Field10") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtProID", SqlDbType.NVarChar, 50, "Field11") ' Field ของ excel กำหนดเอาเอง
        objCommInsert.Parameters.Add("@GdtHonor",SqlDbType.NVarChar, 50, "Field12") ' Field ของ excel กำหนดเอาเอง
        Dim objDataAdapter2 As New OleDbDataAdapter()
        objDataAdapter2.InsertCommand = objCommInsert
        objDataAdapter2.Update(Dt)

        Conn1.Close()
        Conn1 = Nothing
    End Sub

Dim Dt As New DataTable()

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class frmAddDatabase
    Dim Conn1 As New OleDb.OleDbConnection
    Dim DtApt As New OleDbDataAdapter
    Dim comOdb As OleDbCommand
    Dim strConn2 As String
    Dim ToClose As Boolean = False

  Private Sub btnBorwse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBorwse.Click
        Dim strFileName As String
        With ofDlg
            .Title = "กรุณาเลือกไฟล์ฐานข้อมูล Excel"
            .Filter = "ไฟล์ฐานข้อมูล Excel (*.mdb)|*.xls"
            .FileName = ""
            .Multiselect = False
            .FilterIndex = 0
            If .ShowDialog() = Windows.Forms.DialogResult.OK Then
                strFileName = .FileName
                txtSql.Text = strFileName
                Dim objConn As New OleDbConnection
                strConn2 = "Provider=Microsoft.JET.OLEDB.4.0;" & "Data source=" & strFileName & ";Extended Properties=Excel 8.0;"
                objConn = New OleDbConnection(strConn2)
                objConn.Open()
                With Conn1
                    If .State = ConnectionState.Open Then .Close()
                    .ConnectionString = strConn2
                    .Open()
                End With
            Else
                strFileName = ""
                txtSql.Text = ""
            End If
        End With
        DataGridView1.DataSource = Nothing
        grbSearch.Enabled = False
        grbManage.Enabled = True
        btnSave.Enabled = False
        btnShow.Enabled = True
    End Sub

    Private Sub btnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShow.Click
        Dim sqlShow As String
        Dim ds As New DataSet

        Dim sqlCountGdt As String = ""
        sqlShow = "select * from [ต้นฉบับ$]"
        DtApt = New OleDbDataAdapter(sqlShow, Conn1)
        DtApt.Fill(ds, "[ต้นฉบับ$]")

        DataGridView1.DataSource = ds.Tables("[ต้นฉบับ$]")
        DataGridView1.Refresh()

        grbSearch.Enabled = False
        grbManage.Enabled = True
        btnSave.Enabled = True
        btnShow.Enabled = False
    End Sub