Hi, what am I doing wrong here. I get the following error message:

ERROR [07002] [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 13.

Here is the code

Dim UpdateCMD As Odbc.OdbcCommand

Dim mStream As New MemoryStream()
Dim arrImage() As Byte
Dim sqlString As String

sqlString = "UPDATE ADDRESS SET " & "LastName = @LastName, FirstName = @FirstName, " & _
"DateOfBirth = @DateOfBirth, HomeAddrees = @HomeAddress, " & _
"OfficeAddress = @OfficeAddress, HomePhone = @HomePhone, " & _
"OfficePhone = @OfficePhone, MobilePhone = @MobilePhone, " & _
"EmailAddress = @EmailAddress, Comment = @Comment, " & _
"PictureName = @PictureName, Picture = @Picture " & _
"WHERE Item_ID = " & Me.txtID.Text & ";"

imgPicture.Image.Save(mStream, imgPicture.Image.RawFormat)
arrImage = mStream.GetBuffer
mStream.Close()

UpdateCMD = New Odbc.OdbcCommand

With UpdateCMD
.CommandText = sqlString
.CommandType = CommandType.Text
.Connection = dbConn
.Parameters.Add(New Odbc.OdbcParameter("@LastName", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@FirstName", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@DateOfBirth", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@HomeAddress", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@OfficeAddress", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@HomePhone", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@OfficePhone", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@MobilePhone", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@EmailAddress", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@Comment", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@PictureName", Odbc.OdbcType.NVarChar))
.Parameters.Add(New Odbc.OdbcParameter("@Picture", Odbc.OdbcType.Image))
.Parameters("@LastName").Value = Me.txtLastName.Text
.Parameters("@FirstName").Value = Me.txtFirstName.Text
.Parameters("@DateOfBirth").Value = Me.txtDateOfBirth.Text
.Parameters("@HomeAddress").Value = Me.txtHomeAddress.Text
.Parameters("@OfficeAddress").Value = Me.txtOfficeAddress.Text
.Parameters("@HomePhone").Value = Me.txtHomePhone.Text
.Parameters("@OfficePhone").Value = Me.txtOfficePhone.Text
.Parameters("@MobilePhone").Value = Me.txtMobilePhone.Text
.Parameters("@EmailAddress").Value = Me.txtEmailAddress.Text
.Parameters("@Comment").Value = Me.txtComment.Text
.Parameters("@PictureName").Value = sPictureName(0)
.Parameters("@Picture").Value = arrImage
.ExecuteNonQuery()
End With

thanks