Option Explicit
Dim con As New Connection
Dim rs As New Recordset
Private Sub Command1_Click()
con.Open
Dim sql As String
sql = "insert into person values(" & Val(Text1.Text) & ",'" & Text2.Text & " ','" & Text3.Text & "'," & Val(Text4.Text) & ")"
con.Execute sql
MsgBox "Record inserted"
con.Close
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Form_Load()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\BCA\My Documents\nilu.mdb;Persist Security Info=False"
End Sub