有关vb的问题 - VB / 基础类

数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？

---

具体的代码？

---

无码无真相！

---

你把篮球抱在怀里，就能远投得3分？

---

麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
  Dim sqltxt As String
  sqltxt = "delete tmpksb"
  Set conn = New ADODB.Connection
  conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;"
  conn.Open
  conn.Execute sqltxt
  If condstr = "" Then
  sqltxt = "insert into tmpksb select * from ksb "
  Else
  sqltxt = "insert into tmpksb select * from ksb where " + condstr
  End If
  conn.Execute sqltxt
  conn.Close
  DataEnvironment1.Command1 '打开数据源
  DataEnvironment1.rsCommand1.Requery '刷新
  DataReport1.Show vbModal
  DataEnvironment1.rsCommand1.Close
End Sub

---

代码。。。。代码。。。。拿来我们看下。。。

---

Private Sub Comm1_Click() 
  Dim sqltxt As String 
  sqltxt = "delete tmpksb" 
  Set conn = New ADODB.Connection 
  conn.ConnectionString = "dsn=KS;uid=MICROSOF-45B405;pwd=;" 
  conn.Open 
  conn.Execute sqltxt
  debug.print condstr '看输出什么
  If condstr = "" Then