اكثر من سجل مع التكرار - نسخة قابلة للطباعة

كود :

Sub dt()        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter("select * from tb", con)

        ds.Clear()

        DataGridView1.DataSource = Nothing





        da.Fill(ds, "tb")

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "tb"

    End Sub

كود :

Dim cm As New OleDbCommand("", con)



        cm.CommandText = ("insert into tb(tname) values(@tname)")

        cm.Parameters.AddWithValue("@tname", TextBox1.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()









        '====

        cm.Parameters.Clear()

        cm.Parameters.AddWithValue("@tname", TextBox2.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '===

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox3.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '==

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox4.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '==

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox5.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '==

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox6.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '==

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox7.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()





        '==

        cm.Parameters.Clear()





        cm.Parameters.AddWithValue("@tname", TextBox8.Text)





        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        cm.ExecuteNonQuery()

        dt()