自认为没有错误的麻烦?

Question

我在编程时,首先通过form_load 事件使data1绑定在一个数据库上,然后利用其他诸如text、richtextbox等控件向数据库中添加记录。然后再label1_click事件中再用data1控件对该数据库进行条件查询,并将查询结果显示在text、richtextbox控件中。下面是部分代码:
Private Sub Form_Load()
dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    AniGif1.FileName = dbname & "image\serch2.gif"
    dbname = dbname & "Rjzy.mdb"
    Set db = OpenDatabase(dbname)
    
Data1.DatabaseName = dbname
Data1.Connect = "Access 2000;"
Data1.RecordSource = NamerRichTextBox1.DataField = "内容"
Text1.DataField = "日期"
Text2.DataField = "时间"
Combo3.DataField = "星期"
Combo4.DataField = "天气"
data1.refresh
end formPrivate Sub Label1_Click(Index As Integer)
Dim mydate As String
dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "Rjzy.mdb"
    Data1.DatabaseName = dbname
Data1.Connect = "Access 2000;"
Data1.RecordsetType = 1
mydate = Right(Year(Date), 2) & "-" & Month(Date) & "-" & Format(Index + 1, "00")
Data1.RecordSource = " select * from " & Namer & " where 日期 = #" & mydate & "#"
MsgBox Data1.RecordSource
Data1.Refresh
End Sub这断程序在执行能够顺利运行,但到msgbox data1.recordsource 时探出的msgbox 窗口上显示的是" select * from  cao where 日期 = #03-4-01#",而我所期望的在richtextbox和text控件上显示数据库内容却没有出现.
高手们,老大们!你们可要照着我呀!

Answer 1

日期用Format(日期,"mm,dd,yy")处理一下。
按月日年的顺序。

Answer 2

WuYunpeng(白日) ,你好,请你说详细一点好吗?你说的"日期用format(日期,"mm,dd,yy")处理一下使这个意思吗?
mydate = Right(Year(Date), 2) & "-" & Month(Date) & "-" & Format(Index + 1, "00")
format(mydate,"mm,dd,yy")
Data1.RecordSource = " select * from " & Namer & " where 日期 = #" & mydate & "#"

Answer 3

msgbox data1.recordsource 时探出的msgbox 窗口上显示的"select * from  cao where 日期 = #03-4-01#" 是正确的。
期望显示数据库内容应该是 msgbox=Data1.Recordset.Fields(0).Value