dim Conn as oledbconnection
dim Cmd as oledbcommand
dim sql

Dim myprovider="Provider=Microsoft.Jet.OLEDB.4.0"
Dim database="Data Source=" & Server.MapPath("Data\Myweb.mdb")
Conn=new oledbconnection(myprovider & ";" & database)
Conn.open()
sql="Insert Into Diary (Riqi,Neirong) Values ('" & now()
sql=sql & "','" & rightsql(Diarycontent.text) & "')"
Cmd=new oledbcommand(sql,Conn)
Cmd.ExecuteNonQuery()

conn.Close()