Visual Basic

Friend Sub UpdateDatabase()
        frm.Cursor = Cursors.WaitCursor
        Dim isGood As Boolean = True
        If DataServer.IsConnLost Then
            If DataServer.IsConnBack = False Then Exit Sub
            DataServer.IsConnLost = False
        End If
        Dim sqlString As String = "SELECT * FROM " & frm.dgData.DataMember
        Using conn As New SqlConnection(DataServer.SQLConn)
            Using adapt As New SqlDataAdapter(sqlString, conn)
                Using cmdbuilder As New SqlCommandBuilder(adapt)
                    adapt.TableMappings.Add("Table", frm.dgData.DataMember)
                    Try
                        adapt.Update(CType(frm.dgData.DataSource, DataSet).Tables(frm.dgData.DataMember).GetChanges)
                    Catch ex As Exception
                        WriteEventLog("Unknown EX " & Me.GetType.Name & vbCrLf & ex.Message & vbCrLf & ex.StackTrace, , EventLogEntryType.Error, , 58)
                    End Try
                End Using
            End Using
        End Using
        ChangeDataBase()
        frm.Cursor = Cursors.Default
    End Sub

int scaleFactor = 2;//Test
imageWidth = this.DPXWidth / scaleFactor;
imageHeight = this.DPXHeight / scaleFactor;

fs.Position = this.DPXOffset; //read offset position from the header
// start with first pixel after the header

byte[] PixelArray;
Bitmap bmp;
int stridefactor;
int imgSize = (int)(fs.Length - fs.Position) / (scaleFactor * scaleFactor); //neu

if (this.DPXDescriptor == 50)
{
    imagePixelFormat = PixelFormat.Format24bppRgb;
    bmp = new Bitmap(imageWidth, imageHeight , imagePixelFormat);
    stridefactor = 3;

    PixelArray = new byte[(int) imgSize / 4 * 3 ];
    int step = scaleFactor * scaleFactor; //neu
    for (int i = 0; i <= (PixelArray.Length - 1); i += 3)
    {
        //Debug.Print("Position {0}", fs.Position);
        UInt32 mybuff = SwapDWORD(br.ReadUInt32());
        // bit-shifting operation - inspired by Moreno
        PixelArray[i] = (byte)((mybuff & 0xffc) >> 4);
        // Blue
        PixelArray[i + 1] = (byte)((mybuff & 0x3ffffc) >> 14);
        // Green
        PixelArray[i + 2] = (byte)((mybuff & 0xfffffffc) >> 24);
        // Red

        // skip a number of pixels, depending on scalefactor
        if (scaleFactor > 1)
        {
            for (int j = 1; j <= step - 1; j += 1) // n
            {
                br.ReadUInt32();
            }
        }
    }
}
fs.Close();
br = null;
fs = null;

BitmapData bmpData = bmp.LockBits(new Rectangle(new Point(0), bmp.Size), ImageLockMode.WriteOnly, imagePixelFormat);
IntPtr p = bmpData.Scan0;
System.Runtime.InteropServices.Marshal.Copy(PixelArray, 0, p, imageWidth * stridefactor * imageHeight);
bmp.UnlockBits(bmpData);

return bmp;

Run-time error '424' Object required

 Set xl = CreateObject("Excel.application")
  xl.Visible = False
   
  

  ExcelFile = "D:\Users\Test\Desktop" + "\test1.xls"
  
  On Error GoTo ErrorHandler
For i = 1 To 6
ExcelNword = Conversion.CStr(i)
ExcelPassword = "ABC" + ExcelNword
 Set xlBook = xlApp.Workbooks.Open(FileName:=ExcelFile, _
Password:=ExcelPassword)
ErrorHandler:
   MsgBox Err.Description, , "Error"
 Next i