数据类型错误，错在哪里？10纠小错，高手快来！！！！！解决就给分

Question

我建了一个Access数据库，里面的字段有：ID Pname  Psex  等等
我用： 
        Dim SerKey As Long
        DBSource = "Select * from Pdata1 where ID='" & SerKey & "'" 'ID为自动编号，长整型
        Set perRS = New Recordset        
        perRS.Open DBSource, DB, adOpenDynamic, adLockOptimistic
提示数据类型出错
        Dim SerKey As String
        DBSource = "Select * from Pdata1 where Pname='" & SerKey & "'" 'Pname为字符型
        Set perRS = New Recordset        
        perRS.Open DBSource, DB, adOpenDynamic, adLockOptimistic
就没有问题。
请问怎么回事儿？急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急急！

Answer 1

DBSource = "Select * from Pdata1 where ID=" & SerKey  'ID为自动编号，长整型

Answer 2

搞定了，谢谢！！！10完全属于你---- vbman2003(家人)