看下这段代码

wangzhanlei

Public Sub conn(tableName As String)
    Dim db As Connection
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb;"
    Set rs = New Recordset
    adoPrimaryRS.Open "select * from " & CStr(tableName), db, adOpenStatic, adLockOptimistic
End Sub

放在模块里面
在别的窗体里调用的时候例如 call conn(tablename) 参数tablename是db1数据库中的表名称  调用显示错误 传址 错误 指点下是 为什么

这段代码是把链接数据库的代码放到模块里调用 并将数据库的表明作为参数  以方便打开指定的表

f1305147

按址传递还是按值传递？default值是byref噢。如果按值传递的话，需要加：byval

wangzhanlei

这个问题解决了应该是byval 传递 ，否则报错