sub Add(obj as object, e as EventArgs)
	'dim objConn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\users\database\users.mdb")
         'Use Server.MapPath function to get the physical path to the .mdb database file
         dim objConn as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/users/database/users.mdb"))
         objConn.Open()
 
         'dim objCmd as new OleDbDataAdapter("select * from contacts", objConn)
         'Create an SQL insert statement I don't know what the column names should be so I have guessed
         dim sql as String
         sql = "insert into contacts (firstname, lastname) values('" & txtFirstName.text & "', '" & txtLastName.Text & "')"
 
         'Create an adapter
         dim objAdapter as new OleDbDataAdapter()  
 
         'set the adapters insert command with your SQL statement and connection object
         objAdapter.InsertCommand = new OleDbCommand(sql, objCon)
 
	'dim ds as DataSet = new DataSet()objCmd.Fill(ds, "contacts")
 
         'dim dr as DataRow = ds.Tables("contacts").NewRow()dr(1)=txtFirstName.textdr(2)=
 
         'ds.Tables("contacts").Rows.Add(dr)
 
         'objCmd.Update(ds, "contacts")  
 
         'prepare a variable for the result of the databse transaction this could be used for error handling      
         dim rowsAffected as integer
 
         'Execute the SQL statement, we would expect rowsAffected to be 1 for one record inserted
         rowsAffected = objAdapter.InsertCommand.ExecuteNonQuery()
 
         'dispose of your objects, yes there is a garbage collecter but that's no excuse to be lazy
         objAdapter.Dispose()
         objConn.Close()
         objConn.Dispose()
end sub
 

sql = "insert into contacts (firstname, lastname) values('" & txtFirstName.text & "', '" & txtLastName.Text & "');"

sql = "insert into contacts (username, firstname, lastname) values('', '" & txtFirstName.text & "', '" & txtLastName.Text & "')"