主题：自动生成二维码问题

For Each r As Row In Tables("表A")

    Dim Bar As New BarCodeBuilder

    Bar.Symbology = Barpro.Symbology.QRCode

    Bar.Code = r("第一列") &  r("第二列")

    Bar.BarRatio = 0.3

    Bar.BarHeight = 0

    Bar.DisplayChecksum = False

    Bar.DisplayStartStopChar = False

    Bar.SaveImage("D:\data\" & r("序号") & ".jpg",600) '

Next

总是提示错误，请专家指点，谢谢！