missing semicolon at the end of sql statement

[lendyl16]

Call Open_conn
If BEdt = False Then
Rs.Open "Select * from tblpayroll where EmployeeID='" + Trim(txtEmpID.Text) + " '", Cn
If Rs.EOF = False Then
MsgBox "Duplicate Employee ID", vbInformation, "Duplicate"
Else
Cn.Execute "Insert into tblpayroll values('" + Trim(txtEmpID.Text) + "', '" _
+ Trim(txtfullname.Text) + "','" + Trim(cbogender.Text) + "','" _
+ Trim(cbostatus.Text) + "','" + Trim(txtposition.Text) + "')'" _
+ Trim(txtBs.Text) + "','" + Trim(cboEStatus.Text) + "','" _
+ Trim(txtAdd.Text) + "','" + Trim(txtContact.Text) + "','" _
+ Trim(txtSSS.Text) + "','" + Trim(txtTin.Text) + "','" _
+ Trim(txtphil.Text) + "')"";"
MsgBox "New Record Saved!", vbInformation, "Employee Info"
End If

Close_Conn

end sub

what should i do?
tnx in advance....

[StephNicolaou]

Exactly what the title says...

Look closely at line 3.

Rs.Open "Select * from tblpayroll where EmployeeID= '"+ Trim(txtEmpID.Text) +"' ", Cn

[mustaffa hasan]

Call Open_conn
If BEdt = False Then
Rs.Open "Select * from tblpayroll where EmployeeID='" + Trim(txtEmpID.Text) + " '", Cn
If Rs.EOF = False Then
MsgBox "Duplicate Employee ID", vbInformation, "Duplicate"
Else
Cn.Execute "Insert into tblpayroll values('" + Trim(txtEmpID.Text) + "', '" _
+ Trim(txtfullname.Text) + "','" + Trim(cbogender.Text) + "','" _
+ Trim(cbostatus.Text) + "','" + Trim(txtposition.Text) + "')'" _
+ Trim(txtBs.Text) + "','" + Trim(cboEStatus.Text) + "','" _
+ Trim(txtAdd.Text) + "','" + Trim(txtContact.Text) + "','" _

• Trim(txtSSS.Text) + "','" + Trim(txtTin.Text) + **"*';"****Bold Text Here
• _" we get just change lightly and see
  MsgBox "New Record Saved!", vbInformation, "Employee Info"
  End If