Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
cn.ConnectionString = "DSN=RPA;UID="";PWD="""
cn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
cn.Open()
Dim sSQLBefehl as String = "INSERT INTO dbo.Files values ('2'," & _
  System.IO.File.ReadAllBytes("d:\NOK.jpg") & ",'LinkedFile')"
rs.Open(strSQL, cn, ADODB.CursorTypeEnum.adOpenDynamic, _
ADODB.LockTypeEnum.adLockReadOnly)
cn.Close()