/Не понимаю почему но это не важно./

Driver={mySQL};Server=localhost;Option=16834atabase=mydatabase;"

"river={mySQL};Server=data.domain.com;Port=3306; Option=131072;Stmt=atabase=my-database;Uid=username;Pwd=password;"

"RIVER={MySQL ODBC 3.51 Driver};SERVER=localhost; DATABASE=myDatabase;USER=myUsername; PASSWORD=myPassword;OPTION=3;"

DRIVER={MySQL ODBC 3.51 Driver}; SERVER=data.domain.com;PORT=3306; DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;"

"Provider=MySQLProvata Source=mydb;User Id=UserName;Password=myPassword;"

Imports MySql.Data.MySqlClient
Imports System.IO
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
    Friend WithEvents Button7 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        Me.Button4 = New System.Windows.Forms.Button
        Me.Button5 = New System.Windows.Forms.Button
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
        Me.Button6 = New System.Windows.Forms.Button
        Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
        Me.Button7 = New System.Windows.Forms.Button
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(16, 208)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(80, 24)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "write"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(104, 208)
        Me.Button2.Name = "Button2"
        Me.Button2.TabIndex = 1
        Me.Button2.Text = "delete"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(192, 208)
        Me.Button3.Name = "Button3"
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "read"
        '
        'DataGrid1
        '
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(8, 16)
        Me.DataGrid1.Name = "ataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(488, 176)
        Me.DataGrid1.TabIndex = 3
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(280, 208)
        Me.Button4.Name = "Button4"
        Me.Button4.TabIndex = 4
        Me.Button4.Text = "write blob"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(376, 192)
        Me.Button5.Name = "Button5"
        Me.Button5.TabIndex = 5
        Me.Button5.Text = "Button5"
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(488, 208)
        Me.Button6.Name = "Button6"
        Me.Button6.TabIndex = 6
        Me.Button6.Text = "getBlobSize"
        '
        'NumericUpDown1
        '
        Me.NumericUpDown1.Location = New System.Drawing.Point(504, 96)
        Me.NumericUpDown1.Name = "NumericUpDown1"
        Me.NumericUpDown1.Size = New System.Drawing.Size(64, 20)
        Me.NumericUpDown1.TabIndex = 7
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(376, 216)
        Me.Button7.Name = "Button7"
        Me.Button7.TabIndex = 8
        Me.Button7.Text = "readnew"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(592, 245)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.NumericUpDown1)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.DataGrid1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Function strDBconn(ByVal user As String, ByVal pwd As String, ByVal dbsource As String, ByVal dbname As String) As String

        Dim DataSource As String = dbsource
        Dim Database As String = dbname
        Dim UserID As String = user
        Dim Password As String = pwd
        Dim MyConString As String = "ataSource = " + DataSource + "atabase=" + Database + ";User ID=" + UserID + ";Password=" + Password
        Return MyConString

    End Function
    Sub InsertRow(ByVal myConnectionString As String)

        ' If the connection string is null, use a default.
        If myConnectionString = "" Then
            myConnectionString = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        End If
        Dim myConnection As New MySqlConnection(myConnectionString)
        Dim myInsertQuery As String = "INSERT INTO temp (numin, numout, path) Values('10012', '23', '444')"
        Dim myCommand As New MySqlCommand(myInsertQuery)
        myCommand.Connection = myConnection
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myCommand.Connection.Close()

    End Sub
    Sub insparam(ByVal myConnectionString As String)

        If myConnectionString = "" Then
            myConnectionString = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        End If
        Dim myConnection As New MySqlConnection(myConnectionString)
        Dim myInsertQuery As String = "ELETE FROM temp WHERE id>@myid"
        Dim myCommand As New MySqlCommand(myInsertQuery)
        myCommand.Parameters.Add("@myid", 35)
        myCommand.Connection = myConnection
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myCommand.Connection.Close()
    End Sub
    Sub writeblob(ByVal myConnectionString As String)
        Dim tFileName As String
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            tFileName = OpenFileDialog1.FileName
        End If

        Dim pdf As FileStream = New FileStream(tFileName, FileMode.Open, FileAccess.Read)
        Dim r As New BinaryReader(pdf)
        Dim myblob() As Byte
        myblob = r.ReadBytes(pdf.Length)
        Dim mb As MySqlDbType = MySqlDbType.LongBlob
        Dim a As Integer = myblob.GetLength(0)
        MessageBox.Show(a.ToString)
        pdf.Read(myblob, 0, pdf.Length)
        If myConnectionString = "" Then
            myConnectionString = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        End If
        Dim myConnection As New MySqlConnection(myConnectionString)
        Dim myInsertQuery As String = "INSERT INTO letters(data) VALUES (@mypdf)"
        Dim myCommand As New MySqlCommand(myInsertQuery)

        myCommand.Parameters.Add("@mypdf", myblob)
        myCommand.Connection = myConnection
        myConnection.Open()
        Try
            myCommand.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            myCommand.Connection.Close()
        End Try
    End Sub
    Sub getBytesCount(ByVal id As String)

    End Sub
    Sub readblob(ByVal myConnectionString As String)
        'connection string to mySQL server and Database test'
        If myConnectionString = "" Then
            myConnectionString = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        End If
        'mySQL Connection
        Dim cn As New MySqlConnection(myConnectionString)
        ' файл
        Dim fs As FileStream
        Dim bw As BinaryWriter
        Dim buffersize As Integer = 100
        Dim outbyte(buffersize - 1) As Byte
        Dim retval As Long
        Dim startindex As Long = 0
        cn.Open()
        Dim logoCMD As MySqlCommand = New MySqlCommand("SELECT data FROM letters WHERE ID=" + NumericUpDown1.Text, cn)
        Dim myReader As MySqlDataReader = logoCMD.ExecuteReader(CommandBehavior.SequentialAccess)
        Dim bytesCount As Long = GetBlobSize(NumericUpDown1.Text)
        Dim counter As Integer = 0
        Dim flgEnd As Boolean

        Do While myReader.Read

            'MsgBox(myReader.FieldCount)
            
            fs = New FileStream("c:\tes.pdf", FileMode.OpenOrCreate, FileAccess.Write)
            bw = New BinaryWriter(fs)
            'Do While bytesCount > 100
            Do While flgEnd = False
                If bytesCount < 100 Then
                    buffersize = bytesCount
                    ReDim outbyte(buffersize - 1)
                    flgEnd = True
                End If
                retval = myReader.GetBytes(0, startindex, outbyte, 0, buffersize)
                bw.Write(outbyte)
                bw.Flush()
                startindex += buffersize
                bytesCount -= buffersize
                counter += 1
            Loop
           
        Loop

        MsgBox(bytesCount & " " & counter.ToString)
        'bw.Write(outbyte, 0, retval - 1)
        'bw.Flush()
        bw.Close()
        fs.Close()
        myReader.Close()
        cn.Close()
    End Sub
    Function GetBlobSize(ByVal blobid As String) As Long
        Dim myConnectionString As String = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        Dim cn As New MySqlConnection(myConnectionString)
        Dim c() As Byte
        Dim bytesCount As Long
        Dim logoCMD As MySqlCommand = New MySqlCommand("SELECT data FROM letters WHERE ID=" + blobid, cn)
        cn.Open()
        Dim myReader As MySqlDataReader = logoCMD.ExecuteReader(CommandBehavior.SequentialAccess)
        Do While myReader.Read
            bytesCount = myReader.GetBytes(0, 0, c, 0, 0)
        Loop
        cn.Close()

        MsgBox(bytesCount)
        GetBlobSize = bytesCount
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        InsertRow(""

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        insparam(""

    End Sub
    Sub showdb(ByVal myConnectionString As String)

        If myConnectionString = "" Then
            myConnectionString = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        End If
        Dim ds As DataSet = New DataSet("pdf"
        Dim myConnection As New MySqlConnection(myConnectionString)
        Dim mySelectQuery As String = "SELECT * FROM temp"
        ' myConnection.Open()
        Dim da As MySqlDataAdapter
        da = New MySqlDataAdapter("SELECT * FROM temp", myConnection)

        ' myConnection.Open()
        myConnection.Open()
        Try
            da.Fill(ds)

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            myConnection.Close()
        End Try
        ' myConnection.Close()
        ataGrid1.DataSource = ds

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        showdb(""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        writeblob(""
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        readblob(""
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        GetBlobSize(NumericUpDown1.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim myConnectionString As String = "atabase=Testata Source=localhost;User Id=root;Password=12345678"
        Dim cn As New MySqlConnection(myConnectionString)
        cn.Open()
        Dim comm As MySqlCommand = cn.CreateCommand()
        comm.CommandText = "SELECT data FROM letters WHERE ID=" + NumericUpDown1.Text
        Dim reader As MySqlDataReader = comm.ExecuteReader()
        reader.Read()
        Dim test As Object = reader(0)
        Dim fs As FileStream
        Dim bw As BinaryWriter
        fs = New FileStream("c:\t.rar", FileMode.OpenOrCreate, FileAccess.Write)
        bw = New BinaryWriter(fs)
        bw.Write(test)
        bw.Flush()
        bw.Close()
        fs.Close()

        MessageBox.Show(""
    End Sub

    Private Sub OdbcConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.Odbc.OdbcInfoMessageEventArgs)

    End Sub
End Class

Не подскажете где взять указанный Вами ODBC Driver ?

ИМХО ByteFX для меня несколько понятнее в учтановке.