CodeViaDbBinaryField
    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bytePws As Byte() = Encoding.UTF8.GetBytes(CryptoFunc.Encrypt("admin"))
        Using conn As New SqlConnection("Initial Catalog='Northwind';user id='sa';data source='localhost'")
            Using comm As New SqlCommand("Update t set Pws=@Pws", conn)
                Dim parameter As SqlParameter = New SqlParameter("@Pws", _
                                                    SqlDbType.Binary, _
                                                    bytePws.Length, _
                                                    ParameterDirection.Input, _
                                                    False, 0, 0, Nothing, DataRowVersion.Current, bytePws)
                comm.Parameters.Add(parameter)
                conn.Open()
                comm.ExecuteNonQuery()
            End Using
        End Using
    End Sub

    Private Sub Button2_Click()Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using conn As New SqlConnection("Initial Catalog='Northwind';user id='sa';data source='localhost'")
            Using comm As New SqlCommand("Select top 1 * from  t ", conn)
                Dim adapter As SqlDataAdapter = New SqlDataAdapter(comm)
                Dim ds As New DataSet()
                adapter.Fill(ds, "t")
                Dim bytePws As Byte() = CType(ds.Tables("t").Rows(0)("Pws"), Byte())
                Dim str As String = Encoding.UTF8.GetString(bytePws)
                str = str.Replace(Chr(0), "")
                MessageBox.Show(CryptoFunc.Decrypt(str))
            End Using
        End Using
    End Sub

CodeofCRDynamicPic
Imports System.IO
Imports System.Data
Imports System.Drawing.Imaging

Public Class Form1Class Form1

    Private Sub btnGenerate_Click()Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        Dim crReportDocument As New CrystalReport1
        Dim myDataSet As New DataSet
        Dim PicPath As String

        myDataSet.Tables.Add("Table1")
        myDataSet.Tables(0).Columns.Add("LastName", System.Type.GetType("System.String"))
        myDataSet.Tables(0).Columns.Add("FirstName", System.Type.GetType("System.String"))
        myDataSet.Tables(0).Columns.Add("Photo", System.Type.GetType("System.Byte[]"))

        PicPath = tbxPath.Text & "\"
        AddOneRow(myDataSet.Tables(0), "Sunnet", "JPG File", PicPath & "Sunset.jpg")
        AddOneRow(myDataSet.Tables(0), "Jin", "Gif File", PicPath & "1.gif")
        AddOneRow(myDataSet.Tables(0), "Zhang", "Gif File", PicPath & "2.gif")
        AddOneRow(myDataSet.Tables(0), "Wang", "JPG File", PicPath & "1.jpg")
        AddOneRow(myDataSet.Tables(0), "Liu", "JPG File", PicPath & "2.jpg")
        AddOneRow(myDataSet.Tables(0), "VS2005", "BMP File", PicPath & "vs2005.bmp")

        crReportDocument.SetDataSource(myDataSet)
        CrystalReportViewer1.ReportSource = crReportDocument
    End Sub

    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tbxPath.Text = Directory.GetCurrentDirectory() & "\Pics"
    End Sub


    Private Sub AddOneRow()Sub AddOneRow(ByRef tbl As DataTable, ByVal c1 As String, ByVal c2 As String, ByVal c3 As String)
        Dim row As DataRow
        row = tbl.NewRow()
        row(0) = c1
        row(1) = c2
        row(2) = ConvertImage(c3)
        tbl.Rows.Add(row)
    End Sub

    Private Function ConvertImage()Function ConvertImage(ByVal path As String) As Byte()
        Dim stream As FileStream = Nothing
        Try
            stream = File.OpenRead(path)
            Return ConvertImage(stream)
        Finally
            If stream IsNot Nothing Then
                stream.Close()
            End If
        End Try
    End Function

    Private Function ConvertImage()Function ConvertImage(ByVal stream As Stream) As Byte()
        Dim image As Image = image.FromStream(stream)
        Dim myImage As Byte() = Nothing
        If image.RawFormat.Guid <> ImageFormat.Jpeg.Guid AndAlso image.RawFormat.Guid <> ImageFormat.Bmp.Guid Then
            Dim memStream As New MemoryStream()
            image.Save(memStream, ImageFormat.Jpeg)
            myImage = memStream.GetBuffer()
            memStream.Close()
        Else
            stream.Position = 0
            myImage = New Byte(stream.Length) {}
            stream.Read(myImage, 0, stream.Length)
        End If
        Return myImage
    End Function
End Class

C#TableLogOnInfo
      private void SetLogOnInfo (string server, string database, string userID, string password, ReportDocument rd)
      {
         TableLogOnInfo logOnInfo = new TableLogOnInfo ();
       
         logOnInfo.ConnectionInfo.ServerName = server;
         logOnInfo.ConnectionInfo.DatabaseName = database;
         logOnInfo.ConnectionInfo.UserID = userID;
         logOnInfo.ConnectionInfo.Password = password;
         
         foreach(CrystalDecisions.CrystalReports.Engine.Table dt in rd.Database.Tables)
        {
          dt.ApplyLogOnInfo(logOnInfo);
        }
      }
      
      

VB.NET_TableLogOnInfo
Private Sub SetLogOnInfo(ByVal server As String, ByVal database _ 
      String, ByVal userID As String, ByVal password As String, ByVal _ 
      rd As ReportDocument)
      
         Dim logOnInfo As New TableLogOnInfo()
               
         logOnInfo.ConnectionInfo.ServerName = server
         logOnInfo.ConnectionInfo.DatabaseName = database
         logOnInfo.ConnectionInfo.UserID = userID
         logOnInfo.ConnectionInfo.Password = password

For Each dt As CrystalDecisions.CrystalReports.Engine.Table In rd.Database.Tables
            dt.ApplyLogOnInfo(logOnInfo)
        Next
      End Sub

VB.NET_ AddCrystalParameter
    Private Sub AddCrystalParameter(ByVal rd As ReportDocument, ByVal strParameterName As String, ByVal strParameterValue As String)
        Dim pfds As ParameterFieldDefinitions = rd.DataDefinition.ParameterFields
        Dim pfd As ParameterFieldDefinition = pfds(strParameterName)
        Dim pvs As ParameterValues = New ParameterValues()
        Dim pdv As ParameterDiscreteValue = New ParameterDiscreteValue()        
        pvs = pfd.CurrentValues        
        pdv.Value = strParameterValue
        pvs.Add(pdv)
        pfd.ApplyCurrentValues(pvs)
    End Sub

C#_AddCrystalParameter
public void AddCrystalParameter(ReportDocument rd, string strParameterName, string strParameterValue)
    {
        ParameterFieldDefinitions pfds = rd.DataDefinition.ParameterFields;
                ParameterFieldDefinition pfd = pfds(strParameterName);
        ParameterValues pvs = new ParameterValues();
        ParameterDiscreteValue pdv = new ParameterDiscreteValue();
        pvs = pfd.CurrentValues;        
        pdv.Value = strParameterValue;
        pvs.Add(pdv);
        pfd.ApplyCurrentValues(pvs);
    }