VB2010 ช่วยสอนหรือขอตัวอย่างการเพิ่มข้อมูลลงฐานข้อมูลโดยวนลูปทีครับ

dataSt = New DataSet
            adapter = New SqlDataAdapter("INSERT INTO Container(ContainerNo, Type, AgentName, DateIn, Time, Note, Status)VALUES('" & txtCon1.Text.Trim() & "'," & _
                                         "'" & cboSize1.SelectedItem & "'," & _
                                         "'" & cboAgent.Text & "'," & _
                                         "'" & GetDateTime(dtpIN) & "'," & _
                                         "'" & t & "'," & _
                                         "'" & txtNote.Text & "'," & _
                                         "'" & stu & "')", connection)
            adapter.Fill(dataSt, "Container")

            adapter = New SqlDataAdapter("INSERT INTO Agent(ContainerID, AgentName, Address, Email, Tel)VALUES((select MAX(ContainerID) from Container),'" & cboAgent.Text.Trim() & "'," & _
                                         "'" & txtAddress.Text.Trim() & "'," & _
                                         "'" & txtEmail.Text.Trim() & "'," & _
                                         "'" & txtTel.Text.Trim() & "')", connection)
            adapter.Fill(dataSt, "Agent")