Private Sub cmd_edit_Click()
'I'd advice you to use SQL statements
'Put here your validations
'the code below inserts a record to the database, obviously...
'Here is the syntax on inserting a record on a table
'INSERT INTO <tablename>(Field1,Field2,Field3...) VALUES (Value1, value2, value3)
 
rs.Open "INSERT INTO tblAccess(Access) VALUES ('" & Text1.Text & "')", c, adOpenDynamic
MsgBox " add new successful ", vbInformation, "successful"
End Sub
 
 
Private Sub Form_Load()
Dim cs As String
c.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\COMION.MDB;Persist Security Info=False")
rsnew2.Open "select * from company", c, adOpenDynamic
Me.text1.Text = rsnew2(2)
Me.text2.Text = rsnew2(3)
End Sub

con.begin trans
con.execute "update table_name set field_name= text1.text"
con.committrrans