Option Explicit
Dim r As Recordset
Dim d As Database
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdsave_Click()
Set r = d.OpenRecordset("select * from emp")
r.AddNew
r.Fields("empcode") = Val(txteno.Text)
r.Fields("empname") = txtename.Text
r.Fields("salary") = txtsal.Text
r.Fields("doj") = txtdate.Text
r.Update
txteno.Text = ""
txtename.Text = ""
txtsal.Text = ""
txtdate.Text = ""
txteno.SetFocus
End Sub
Public Sub conn()
Dim str As String
str = App.Path & "\empl.mdb"
Set d = DBEngine.Workspaces(0).OpenDatabase(str)
End Sub
Private Sub Form_Load()
conn
End Sub