以下是一个简单的小程序
Private Sub Command1_Click()
  Dim com As TDAPIOLELib.Command
  Dim RecSet As Recordset

Set com = tdc.Command  //tdc在登录窗体中已经定义为 Dim tdc As New TDAPIOLELib.TDConnection，调试时该行变黄，报 错：实时错误424 缺少对象
com.CommandText = "select * from bug"
Set RecSet = com.Execute

For i = 1 To RecSet.RecordCount
   List1.AddItem (RecSet.FieldValue(i))
   RecSet.Next
Next
End Sub

请教各位高手，大侠！！！！多谢啦！我的msn:yujuan.wang@gmail.com 我的QQ：93687970，请注明51job，谢谢！

救命啊！！！

如果是td8.0，需要先调用tdc的InitConnectionEx和ConnectProjectEx方法连接到具体的td工程库才行