主题：根据编号生成不同pdf文件

Dim doc As New PrintDoc
Dim Cur As Row = Tables("表A").Current
Dim P As String = Cur("编号")
doc.SavePDF("C:\Documents and Settings\Administrator\My Documents\PDF & P")

请问代码应该怎么改

Dim doc As New PrintDoc
Dim Cur As Row = Tables("表A").Current
Dim P As String = Cur("编号")
doc.SavePDF("C:\Documents and Settings\Administrator\My Documents\PDF\" & P & ".pdf")

谢谢