VB向ACCESS里插入数据，总是插不进数据！

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Private Sub Command20_Click()
Fav_url = WebBrowser1.LocationURL '获得当前URL
Fav_name = WebBrowser1.LocationName '获得当前Title
Fav_time = Now()
Set Conn = New ADODB.Connection
Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\Database.mdb"
Set Rs = New ADODB.Recordset
Rs.Open "select * from Fav", Conn
Rs.AddNew
Rs("Fav_url") = Fav_url
Rs("Fav_name") = Fav_name
Rs("Fav_time") = Fav_time
Rs.Update
Rs.Close
Conn.Close
MsgBox "记录已经成功添加！"
End Sub

无错误提示，msgbox也没有弹出，数据库无记录。。哪位达人看是啥问题？ --------------------编程问答-------------------- 在线等。。达人现身。。 --------------------编程问答-------------------- Rs.Open "select * from Fav", Conn

上面这句的参数没选好，缺省的LockType参数为：AdLockReadOnly ，，所以不允许更改数据。
改为：rs.open "select * from fav",conn,3,2 --------------------编程问答-------------------- 增加记录：conn.execute "insert into tablename(...) values(...)"
修改记录：conn.execute "update tablename set ... where ..."
删除记录：conn.execute "delete from tablename where ... "
--------------------编程问答--------------------

引用 3 楼 Leftie 的回复:

增加记录：conn.execute "insert into tablename(...) values(...)" 
修改记录：conn.execute "update tablename set ... where ..." 
删除记录：conn.execute "delete from tablename where ... " 

楼上的也是一种很好的方法
如果你要根据你的做法做  你的RS少了一个字段
Rs.AddNew 
Rs("Fav_url") = Fav_url 
Rs("Fav_name") = Fav_name 
Rs("Fav_time") = Fav_time 
Rs.Update 

应该更改为
RS.AddNew
Rs1.Fields("Fav_url") = Fav_url 
后面的也一样 要更改掉  
RS目前只是一个记录集   要插入一条记录必须要指明字段
这样才能成功 --------------------编程问答-------------------- 呵呵  发生一个错误
应该更改为 
RS.AddNew 
Rs.Fields("Fav_url") = Fav_url  
后面的也一样 要更改掉   
RS目前只是一个记录集   要插入一条记录必须要指明字段 
这样才能成功 --------------------编程问答-------------------- 兄弟,应该游标问题
连接数据库加上这句:
conn.CursorLocation   =   adUseClient --------------------编程问答-------------------- 帮顶了 --------------------编程问答-------------------- 不明LZ在说什么 --------------------编程问答-------------------- 等待牛人来答. --------------------编程问答-------------------- STUDY   STUDY --------------------编程问答-------------------- Set Conn = New ADODB.Connection
conn.CursorLocation = adUseClient
Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\Database.mdb"
Set Rs = New ADODB.Recordset
Rs.Open "select * from Fav", Conn, adOpenKeyset, adLockOptimistic

补充：VB ,  数据库(包含打印，安装，报表)