vb实时错误，请高手帮忙！谢谢。

加错误处理啊 看看是什么错误
而且你这个函数有很多问题

Public Function Cnn() As ADODB.Connection '定义连接字符串函数
’你定义了一个函数 但是下文没有看到返回值

on error goto ex
Dim rst As ADODB.Recordset
' PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;tb_user=sa;Initial Catalog=wuliu-shuji.mdb"
Set Cnn = New ADODB.Connection
Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB\2007vb6\VB98\毕业设计1\wuliou 3\物流管理系统\FormFile\wuliu-shuj.mdb;Persist Security Info=False"

‘你这里AdoRs是adodoc控件还是一个rencordset对象 也没看见你在哪里定义 而且你这个对象也没看到和Connection 有什么关联 也没看到select脚本 何来的记录集

If AdoRs.RecordCount > 0 Then （就是这行错了提示是：实时错误424）
Text1(0).Text = AdoRs.Fields("bmxx_id")
Text1(1).Text = AdoRs.Fields("bmxx_mc")
Text1(2).Text = AdoRs.Fields("bmxx_bz")
End If
AdoRs.Close ‘你在哪里open adors ？？？？？？？？？？？
<