用vb查询SQL数据库中数据，用水晶报表显示查询结果？
用vb查询SQL数据库中数据，用水晶报表显示查询结果？我在vb的界面中做两个text文本，一个纪录数据的按钮，一个查询按钮。用水晶报表显示查询结果。
问题：当运行工程时，在两个text文本中输入数据，点纪录按钮，数据库中有数据(也就是说数据已存到sql数据库中).点查询按钮时，查询不到数据，此时不运行工程，然后在次运行工程时，又能查到数据.请问为什么？请问一下程序如何修改？
代码如下：
Private Sub Command1_Click() '查询按钮
Set Cnn = CreateObject("adodb.connection") '创建连接
Set rs = CreateObject("ADODB.Recordset") '创建纪录集
'打开数据源
Cnn.open "DSN=abc"
rs.open "select* from b ", Cnn, 3, 2
Form2.Show
End Sub
Private Sub Command2_Click() '纪录按钮
'将数据读入sql到数据库
Dim Cnn '定义一个连接
Dim rs '定义一个数据纪录集
Set Cnn = CreateObject("adodb.connection") '创建连接
Set rs = CreateObject("ADODB.Recordset") '创建纪录集
Cnn.open "dsn=abc" '打开数据源为abc
rs.open "select* from b order by shijian ", Cnn, 3, 2 '打开表，并按时间的升序记录
rs.addnew '添加新的数据
rs.Fields(0) = Date '将日期的值写到数据库中
rs.Fields(1) = Time '将时间的值写到数据库中
rs.Fields(2) = Text1.Text '将文本的值写到数据库中
rs.Fields(3) = Text3.Text '将文本的值写到数据库中
rs.Update '更新数据库中的值
Cnn.Close '关闭连接
End Sub
Private Sub Timer1_Timer()
Text5.Text = Format(Now(), "HH:MM:SS") '显示系统时间
Label1.FontSize = 16 '改变字体的大小
Label2.FontSize = 16 '改变字体的大小
Text5.FontSize = 20 '改变字体的大小
End Sub
[ 本帖最后由 chenzhenbiao 于 2009-12-22 15:46 编辑 ]
