VB代码写入ACCESS

Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, weekD As String
Dim txtBh As String
weekD = "一二三四五六日"
weekD = "星期" & Mid(weekD, Weekday(Now, vbMonday), 1)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\yygl.mdb"
rs.Open "Select * From [timing] Where [学生帐号]='" & Czy & "'", cn
conn.Execute "SELECT * INTO timing1 FROM "
这以读到RS的值
我想在同数据库的表timing1中写入ID （自动加），当前用户：CZY ，日期：Format(Date, "yyyy-mm-dd") ，星期：Weekday(Now, vbMonday)，定时：RS

还有就是如果日期：Format(Date, "yyyy-mm-dd") and CZY 在表timing1存在就跳过