主题：动态识别指定列的数据为条形码

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "123456"
'打印条形码
Dim doc As New PrintDoc
Dim rm As New prt.RenderImage
rm.Image = Bar.GetImage(300)
doc.Body.Children.Add(rm)
Doc.Preview()

如何让它动态识别表A的第一列、第二列和第三列的信息形成条码？