标题：这个代码怎么写？？

cmd.CommandText = "SELECT 款图 Fro m {订单主表} where [_Identify] = " & r("_Identify").款图 IsNot NULL

    Dim cmd As New SQ LCommand
    Dim ds As DataTable
    cmd.C
    cmd.CommandText = "SE LECT 款图 Fr om {订单主表} where [_Identify] = " & r("_Identify")
    ds = cmd.ExecuteReader()
    If ds.datarows.count > 0 Then
        If ds.DataRows(0)("款图") IsNot "NULL" Then
            Dim imageByte() As Byte = ds.DataRows(0)("款图")
            Dim ms As New system.IO.MemoryStream(imageByte) '将字节数组转换为二进制流
            Dim image As Image = Image.FromStream(ms)
            pbxz.Image = image
        Else
            pbxz.ImageFile = nim
        End If
        Dim rfz As String = r("合同数量")
        lb1.text = "款号: " + r("款号") + " 订单数量: " + rfz + r("单位") + vbcrlf + vbcrlf + "合同交期: " + r("合同交期") + " 担当姓名: " + r("业务担当")
    Else
        pbxz.ImageFile = nim
        lb1.text = ""
    End If

此主题相关图片如下：提问图片2.jpg

这个代码怎么写，不然老是出错