主题：[求助]条码生成

求教一下，关于条码的

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code39

Bar.Code = "123456"

Bar.BarWidth = 0.3

Bar.BarHeight = 8

Bar.SaveImage("c:\data\MyBar.jpg")

这个我如何把“123456”替换为我指定行列的内容，比如指定表A中我鼠标选择的行，列名为采购订单号；