Code:

        Dim i As Integer = 0

        Dim cn, cne As System.Data.OleDb.OleDbConnection
        Dim cmd, cmde As System.Data.OleDb.OleDbDataAdapter

        cn = New System.Data.OleDb.OleDbConnection(konSQL)
        cne = New System.Data.OleDb.OleDbConnection(konExcel)

        cmd = New System.Data.OleDb.OleDbDataAdapter(upit1, cn)
        cmde = New System.Data.OleDb.OleDbDataAdapter(upit, cne)

        cn.Open()
        cmd.Fill(ds1, "tblListing")
        cne.Open()
        cmde.Fill(ds)

   
        Dim myRow As DataRow
        myRow = ds.Tables(0).NewRow()

        For Each myRow In ds.Tables(0).Rows
            Dim row As DataRow
            row = ds1.Tables("tblListing").NewRow()

            row.Item(0) = i
            row.Item(1) = myRow.Item(0)
            row.Item(2) = myRow.Item(1)
            row.Item(3) = myRow.Item(2)
            row.Item(4) = myRow.Item(3)
            row.Item(5) = myRow.Item(4)
            row.Item(6) = myRow.Item(5)
            row.Item(7) = myRow.Item(6)

            ds1.Tables("tblListing").Rows.Add(row)
            cmd.Update(ds1, "tblListing")
            i = i + 1
        Next

        cn.Close()
        cne.Close()