datalist控件不能显示adodc显示的数据

datalist与adodc捆绑，显示testtime字段
Private Sub Query_Click()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From testdata Where testdate = # " & Str(DTPicker1.Value) & " #"
Adodc1.Refresh
DataList1.ListField = "TestTime"
DataList1.BoundColumn = "TestNo"
DataList1.Refresh
If Adodc1.Recordset.RecordCount <= 0 Then
    MsgBox "当前数据库中没有符合条件的信息！", 64, "提示信息"
End If
End Sub

在我自己的机器上还可以使用，换到其他机器上就不能显示

已经采用regsvr32.exe msdatlst.ocx注册过了
采用-i注册，说没有找到dllinstall输入点，无法注册 --------------------编程问答-------------------- 你再把MSSTDFMT.DLL注册一下看看 --------------------编程问答-------------------- 还是老样子，不解决问题 --------------------编程问答-------------------- 没人提供点帮助吗？自己顶一下

补充：VB ,  控件