Guardar imagen sql server

[Lerolero]

Hola, tengo el siguiente codigo

Código vb:

'Se declaran variables para la consulta
        Dim Consulta As String
        Dim ds As New DataSet
 
        Dim foto As Byte() = ImageToByteArray(pct_imagencaptura.Image)
        'Dim cadena As String = Convert.ToBase64String(foto)
 
        'Se crea la consulta sql para ingresar un nuevo registro
        Consulta = " INSERT FOTOPLACA_TAB "
        Consulta = Consulta + "("
        Consulta = Consulta + "FOTOPLACA_ID,"
        Consulta = Consulta + "FOTOPLACA_AUTORIZACIONID,"
        Consulta = Consulta + "FOTOPLACA_PLACAID,"
        Consulta = Consulta + "FOTOPLACA_IMAGEN,"
        Consulta = Consulta + "FOTOPLACA_FECHA"
        Consulta = Consulta + ") VALUES ( "
        Consulta = Consulta + "" + "NEXT VALUE FOR FOTOPLACA_SEC" + "" + ", "
        Consulta = Consulta + "" + G_IDAUTORIZACION + "" + ", "
        Consulta = Consulta + "" + G_IDPLACA + "" + ", "
        Consulta = Consulta + "" + foto + "" + ", "
        Consulta = Consulta + "" + "GETDATE()" + "" + " "
        Consulta = Consulta + ")"
 
        'EJECUTAR EL INSERT
        Try
            'Se ejecuta la consulta pasandole la cadena 
            ADONet_SQLExcute(Consulta)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        ds.Dispose()
 

Estoy intentando ingresar una imagen en la base de datos, pero al intentar convertir en string el array de byte, saca error.


Codigo que ejecuta la consulta

Código vb:

Public Sub ADONet_SQLExcute(ByRef ADO_Sql As String)
        'EJECUTA UN SQL EXECUTE A LA BASE DE DATOS
        'REQUIERE UNA CADENA SQL Y CONEXION ABIERTA
        Dim oledbAdapter As OleDbDataAdapter
        Dim ds As New DataSet
        oledbAdapter = New OleDbDataAdapter(ADO_Sql, cnn)
        oledbAdapter.Fill(ds)
        oledbAdapter.Dispose()
        ds.Dispose()
    End Sub
 

He visto muchos ejemplos, pero casi todos son con sqlcommand y yo solo lo quiero hacer con el dataset.