insert record(vb 6)

Private Sub cmdSave_Click()
Dim id, fname, mname, lname, add, num, pos, emer As String
Dim rate As Integer
id = txtEmpID.Text
fname = UCase(txtFName.Text)
mname = UCase(txtMName.Text)
lname = UCase(txtLName.Text)
add = UCase(txtAddr.Text)
num = txtCnum.Text
emer = UCase(txtEmer.Text)
rate = Val(txtRate.Text)
pos = txtPosID.Text
If Trim(txtFName.Text) = "" Or Trim(txtMName.Text) = "" Or Trim(txtLName.Text) = "" _
Or Trim(txtAddr.Text) = "" Or Trim(txtCnum.Text) = "" Or Trim(txtEmer.Text) = "" _
Or Trim(txtRate.Text) = "" Or Trim(txtPosID.Text) = "" Then
MsgBox "Required Field/s missing!"

Else
  rs.Open "Insert into EMPFILE(EmpID,FName,MName,LName,Address,ContNum,IncaseEmer,Rate,PosID)" & _
    "values('" & id & "','" & fname & "','" & mname & "','" & lname & "','" & add & "','" & num & "','" & emer & "','" & rate & "','" & pos & "')", cn, 3, 3
    Set rs = Nothing
    MsgBox "New Employee information has been saved.", vbInformation, "Saved!"
    cmdNew.Enabled = True
    cmdSave.Enabled = False
    Call Clearfields
    Call grd_Data_Loader
    Frame1.Enabled = False
 End If


End Sub