读取mysql的一段函数，看看这段代码哪里出错了

Public Function GetPTID(ByVal Name As String) As Long                                 '通过 平台名称 获取 平台ID
    Dim temprs As ADODB.Recordset
    Dim tempsql As String
    On Error GoTo Error
    tempsql = "SELECT id FROM plugin_账号密码_平台 WHERE 平台名称='" & Name & "'"
    Set temprs = New ADODB.Recordset
    temprs.Open tempsql, CN, adOpenKeyset, adLockReadOnly, adCmdText
    If temprs.RecordCount > 0 Then
        GetPTID = CLng(temprs.Fields("ID"))
    Else
        GetPTID = 0
    End If
    temprs.Close
    Set temprs = Nothing
Error:
  Debug.Print "ErrNum=" & Err.Number & ",ErrSource=" & Err.Source & ",ErrDes=" & Err.Description & ",modFunciton-GetPTID"
  Resume Next
End Function