vb操作access时rs.update问题

代码如下，在保存的时候出错，时间格式文本和时间都出现错误，请高手帮我看下，另我想在listbox中显示出access中的所有WebName要怎么写？还有下拉菜单查询选择是怎么做的？不要抄袭，要详细的带有说明的，我是个初学者！分一定再加，一定要搞定！！谢谢！
Dim cnn As ADODB.Connection '连接数据库的Connection对象
Dim rs As ADODB.Recordset '保存结果集的Recordset对象

Private Sub cmdadd_Click(Index As Integer)
time.Text = CStr(Date) '（显示系统今天日期）
time.SetFocus
webname.Text = ""
website.Text = ""

End Sub
Private Sub cmdsave_Click(Index As Integer)
rs.AddNew
rs.Fields("WebName").Value = webname.Text
rs.Fields("WebSite").Value = website.Text

rs.Fields("time").Value = time.Text
rs.Update
MsgBox "Successfully Save Data", vbInformation + vbOKOnly
rs.Requery
time.SetFocus
Call LoadControls
Exit Sub
End Sub

Private Sub Form_Load()

'关键New用于创建新对象cnn
Set cnn = New ADODB.Connection
'设置连

vb操作access数据库 VB+ACCESS数据库操作问题 vb 与access 作查询操作 vb操作115200条数据的access VB+access两个表的操作 求一个用VB.net操作access数据库的例程 vb+access+ado+datagrid怎样操作表格运算 vb rs.bookmork vb与rs.open VB+Access