Try
facture_print = Label18.Text
Dim BonDeCommonde1 As New CrystalReportFacture1
Dim ms As New System.IO.MemoryStream
PictureBox1.Image.Save(ms, System.Drawing.Imaging.ImageFormat.Bmp)
Dim byt() As Byte = ms.ToArray
ds1.ventefact.Rows.Add(byt, Label18.Text, nom_client1, adresse1, tel1, tva, Label6.Text, Label10.Text, DateTimePicker1.Value.Date)
If conectstata = 1 Then
da = New SqlDataAdapter("select code_facture,nom_client,adresse,tel,tva,total_htc,total_ttc,Date1,designation_article,prix_vente,qte_vendu,htc,ttc from ventefact where code_facture= " & Val(Label18.Text) & "", connectt)
da.Fill(ds1.ventefact)
Else
connectt.Open()
End If
' DataGridView2.DataSource = ds1.ventefact
BonDeCommondeShow.CrystalReportViewer1.ReportSource = BonDeCommonde1
BonDeCommonde1.SetDataSource(ds1.Tables("ventefact"))
ds1.ventefact.Clear()
'حجم العرض
BonDeCommondeShow.CrystalReportViewer1.Zoom(100%)
'تحديث التقرير
BonDeCommondeShow.CrystalReportViewer1.Refresh()
BonDeCommondeShow.ShowDialog()
Catch ex As Exception
MsgBox("some error", MsgBoxStyle.Critical)
Exit Sub
End Try
