จะวน loop จาก query เพื่อนำข้อมูลไปใส่ไว้ในอีกตาราง ต้องวน loop อย่างไร

    Private Sub SelectData()
        'MessageBox.Show(supid)
        Sql = "Select Supplier_ID,Supplier_Name,Supplier_Address,Supplier_Phone From Supplier"
        'MessageBox.Show(Sql)
        Dim Reddata As System.Data.OleDb.OleDbDataReader
        Conncmd = New OleDbCommand(Sql, Conndb)
        Reddata = Conncmd.ExecuteReader
        Reddata.Read()
        
         เขียน Code จะวน Loop  เพื่อมาใส่ Insert อีก Table

    End Sub