Number of query values and destination fields are not the same

Hi Experts, Im new to .net and im working on a project where i need to save and retrieve the image/picture or ole object data from mdb in my windows form in order to use it in my reports & print...i've been working on this for almost 3 weeks on this and i got this error " [b]Number of query values and destination fields are not the same." and this is my code: -----------


Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ray As String
ray = Me.cjTextBox.Text
Dim ray1 As String
ray1 = Me.ptTextBox.Text
Dim ans As String
Dim company, flg2, address, branch, pt, desc, flg, lang, cj, email, path As String
Dim amt As Integer



Me.TextBox5.Text = Me.pathTextBox.Text
Dim fs As New FileStream(TextBox5.Text, FileMode.Open, FileAccess.Read)
Dim bys As New BinaryReader(fs)
Dim bty(fs.Length) As Byte
bys.Read(bty, 0, fs.Length)
fs.Close()

Me.FlgTextBox.Text = "adfcup"
Me.Flg2TextBox.Text = "1"
If Me.RadioButton1.Checked = True Then
Me.LangTextBox.Text = "madrn"
ElseIf Me.RadioButton2.Checked = True Then
Me.LangTextBox.Text = "eng"
End If


Me.CompanyTextBox1.Text = Me.CompanyTextBox.Text
Me.AddressTextBox1.Text = Me.AddressTextBox.Text
Me.BranchTextBox1.Text = Me.BranchTextBox.Text
Me.ComboBox1.Text = Me.PayeeTextBox1.Text

company = CompanyTextBox1.Text
address = AddressTextBox1.Text
branch = BranchTextBox1.Text

pt = PtTextBox.Text
desc = DescTextBox.Text
flg = FlgTextBox.Text
flg2 = Flg2TextBox.Text
lang = LangTextBox.Text

cj = CjTextBox.Text
path = TextBox5.Text


If Me.ComboBox1.Text = Nothing Or Me.CjTextBox.Text = Nothing Or Me.PtTextBox.Text = Nothing Or Me.DescTextBox.Text = Nothing Then
MsgBox("Please fill all field")

ElseIf Len(Me.CjTextBox.Text) < 6 Then
MsgBox("Please cj your cj number, should be 6 digit")
Else


con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\first projet\user\user\mycollege.mdb")
con.Open()
str = "insert into cj values('" & CompanyTextBox1.Text & "','" & AddressTextBox1.Text & "','",'" & DateTimePicker1.Value & "','" & CjTextBox.Text & "','" & PtTextBox.Text & "','" & DescTextBox.Text & "','" & FlgTextBox.Text & "','" & LangTextBox.Text & "',@logo,'" & Flg2TextBox.Text & "')"
cmd = New OleDbCommand(str, con)
cmd.Parameters.Add("company", OleDbType.VarChar).Value = CompanyTextBox1.Text
cmd.Parameters.Add("address", OleDbType.VarChar).Value = AddressTextBox1.Text
cmd.Parameters.Add("date", OleDbType.Date).Value = DateTimePicker1.Text
cmd.Parameters.Add("cj", OleDbType.VarChar).Value = CjTextBox.Text
cmd.Parameters.Add("pt", OleDbType.VarChar).Value = PtTextBox.Text
cmd.Parameters.Add("desc", OleDbType.VarChar).Value = DescTextBox.Text
cmd.Parameters.Add("flg", OleDbType.VarChar).Value = FlgTextBox.Text
cmd.Parameters.Add("lang", OleDbType.VarChar).Value = LangTextBox.Text
cmd.Parameters.Add("path", OleDbType.VarChar).Value = TextBox5.Text
cmd.Parameters.AddWithValue("@logo", bty)
cmd.ExecuteNonQuery()


' Me.CompanyTextBox1.Text = Form2.CompanyTextBox.Text
'Me.AddressTextBox1.Text = Form2.AddressTextBox.Text


Me.CompanyTextBox2.Text = Me.CompanyTextBox.Text
Me.AddressTextBox2.Text = Me.AddressTextBox.Text

Me.DateTextBox.Text = Me.DateTimePicker1.Text


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''TO SAVE NUMBER'''''''''''''''''''''''''''''''''''''''''

ans = Val(ray) + Val(1)
If Len(ans) = 1 Then
Me.NumberTextBox.Text = "00000" & ans
ElseIf Len(ans) = 2 Then
Me.NumberTextBox.Text = "0000" & ans
ElseIf Len(ans) = 3 Then
Me.NumberTextBox.Text = "000" & ans
ElseIf Len(ans) = 4 Then
Me.NumberTextBox.Text = "00" & ans
ElseIf Len(ans) = 5 Then
Me.NumberTextBox.Text = "0" & ans
ElseIf Len(ans) = 6 Then
Me.NumberTextBox.Text = ans
End If
ans = Val(ray) + Val(1)
If Len(ans) = 1 Then
Me.numberTextBox1.Text = "00000" & ans
ElseIf Len(ans) = 2 Then
Me.numberTextBox1.Text = "0000" & ans
ElseIf Len(ans) = 3 Then
Me.numberTextBox1.Text = "000" & ans
ElseIf Len(ans) = 4 Then
Me.numberTextBox1.Text = "00" & ans
ElseIf Len(ans) = 5 Then
Me.numberTextBox1.Text = "0" & ans
ElseIf Len(ans) = 6 Then
Me.numberTextBox1.Text = ans
End If
Me.Validate()
Me.cjnoBindingSource.EndEdit()
Me.CjnoTableAdapter.Update(Me.CjnoDataSet.cjno)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Me.BindingNavigatorSaveItem.PerformClick()
Me.BindingNavigator1.AddNewItem.PerformClick()
Me.Validate()
Me.cjBindingSource.EndEdit()
Me.CjTableAdapter.Update(Me.CjDataSet.chq)
Me.cjBindingSource.AddNew()
Me.Label13.Text = Nothing
Me.Label14.Text = Nothing
Me.Label15.Text = Nothing
Me.Label16.Text = Nothing
Me.CjTextBox.Text = Me.NumberTextBox.Text
Me.ptTextBox.Text = Me.numberTextBox1.Text
Me.ComboBox1.Text = Nothing
Me.ComboBox1.Select()
End If '
End Sub

-----------------------------------
Any idea how to solve this ?