Problem adding data to oracle database in vb6

[monzerahmed6]

Hello friends
I have a problem adding data oracle database,it's show me this message(" https://ufile.io/lzpuj ") Run-time ORA-00904:"EMPCODE": invalid identifier.
This is Cody:

Dim connEmp As ADODB.Connection
Dim rsEmp As ADODB.Recordset

Private Sub Command1_Click()
Set rsEmp = New ADODB.Recordset
 rsEmp.Open "select * from tablebooks where empcode = '" & Text1.Text & "'", connEmp, adOpenKeyset, adLockReadOnly, adCmdText
 If rsEmp.RecordCount <> 0 Then
 MsgBox " ! åÐÇ ÇáßÊÇÈ ãæÌæÏ ÈÇáÝÚá "
 rsEmp.Close
 Set rsEmp = Nothing
 Exit Sub
 Else
 Set rsEmp = New ADODB.Recordset
 rsEmp.Open "select * from tablebooks where empcode = '" & Text1.Text & "'", connEmp, adOpenKeyset, adLockPessimistic, adCmdText
 rsEmp.AddNew
 
 rsEmp!Book_no = Val(Trim(Text1.Text))
 rsEmp!Book_name = Trim(Text2.Text)
 rsEmp!Author_name = Trim(Text10.Text)
 rsEmp!Edition_no = Val(Trim(Text3.Text))
 rsEmp!Publisher_place = Trim(Text11.Text)
 rsEmp!Part_no = Val(Trim(Text5.Text))
 rsEmp!Book_cost = Trim(Text6.Text)
 rsEmp!Place_book = Trim(Text7.Text)
 rsEmp!Note = Trim(Text9.Text)

 rsEmp!Date_publishing = DTPicker1.Value
 rsEmp!Subject = Trim(Combo4.Text)
 rsEmp!State = Trim(Combo4.Text)
 rsEmp.Update
 connEmp.Execute "commit"
 rsEmp.Close
 Set rsEmp = Nothing
 Label11.Visible = True
 Label11 = " ! ÊãÊ ÇáÅÖÇÝÉ ÈäÌÇÍ "
 End If
End Sub