我想在表中提取一条数据，但这函数提取出来都是空值，请问哪里错了 才学 不懂 请大家指教





Public Function distillaa(ByVal num As String) As ADODB.Recordset
    Dim cn As Connection
    Dim RS As Recordset
    Set cn = New Connection
    cn.Open Trim$(dbstringer)
    Set RS = New Recordset
      RS.Open "select * from number where call='" & num & "'", cn, adOpenKeyset, adLockOptimistic
    Set distillaa = RS
        Set cn = Nothing
    Set RS = Nothing
End Function

去掉了，但我运行到
RS.Open "select * from number where call='" & num & "'", cn, adOpenKeyset, adLockOptimistic
& num &里面还是空值。

我意思就是想从数据库表number中随机提取一个call字段里的一条数据

?dbstringer
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book1;Data Source=.   


没明白 但我跟了下 是打开的啊~~
版主大哥能说明白点嘛

我已经读出了 谢谢斑斑