Run Time Error

Question

Private Sub cmdPrint_Click()
Set obj = New PrinterControl
obj.ChngOrientationPortrait
Call ConnectMe
rs.Open "select customer.cusno,customer.fullname,customer.idcn,customer.mobie,customer.reg,customer.dateis,customer.email,sales.pron,sales.blono,sales.lano,sales.sql from customer INNER JOIN sales ON customer.idcn = sales.idcn  where customer.idcn = " & txtCusC.Text & "", con, 1, 3


If rs.RecordCount = 0 Then
    MsgBox "No record found on query.", vbCritical, "Medrar"

Else
    Set SpCustomer.DataSource = rs

    If IsNull(rs.Fields("CustomerPicture").Value) = False Then
        ReDim bData(rs.Fields("CustomerPicture").ActualSize)
        bData = rs.Fields("CustomerPicture").Value
        szfile = App.Path & "\tempPic.tmp"
        Open szfile For Binary Access Write As #1
        Put #1, , bData
        Close #1
    Set SpCustomer.Sections("Section1").Controls("Img").Picture = LoadPicture(szfile)
    End If
    SpCustomer.Show
End If

Set rs = Nothing
End Sub

 Run Time Error: 2147467259(80004005)

---

Rasheed

Answer 1

Hi Rasheed,

Welcome to the MSDN forum.

I’d like to clarify if you’re using VB6. If so, I’d suggest you check this link about Where to post your VB 6 questions because this forum is talking about VB.NET.

If I misunderstood anything, please feel free and let me know.

Best regards,

---

Shanks Zen
MSDN Community Support | Feedback to us