VB - Stored Procedure - Apostrophe Issue

Hello,
I'm using Visual Basic 6 to insert data into SQL Server 2000 via a stored procedure. Apostrophes are giving me problems. Using T-SQL it works fine.

Following is the code:
=======================
cn.ConnectionString = "Driver=" & cnDriver & ";Server=" & cnServer & ";Database=" & cnDatabase & ";UID=" & cnUID & ";PWD=" & cnPWD
cn.Open

'TURNING QUOTES OFF allows a literal string to be delimited by double quotes and to accept an apostrophe
'cn.Execute "SET QUOTED_IDENTIFIER OFF" (This works using T-SQL statements only)

'set the reference to the ADO Command object
Set cmd = New ADODB.Command

'Set the command object properties
Set cmd.ActiveConnection = cn

pDocClass = "Apostrophe's test"

'THIS STORED PROC. INSERTS DATA INTO THE 'INDEX_DTL' AND 'CSC_TRANS' TABLES
cmd.CommandText = "Insert_Email_Data ('" & pDocID & "', '" & pLoginID & "', '" & pCustNum & "', '" & pDocClass & _
"', '" & pJCIRepCode & "', '" & pInitiallyRoute & "','" & pDocRecDate & "', '" & _
pCustPONum & "', '" & pJCIOdrNum & "', '" & strDateTime & "', '" & strTime & "', '" & _
strEmailDate & "', '" & strEmailTime & "', '" & strBatchCreationID & "', '" & _
"X" & "', '" & strEventType & "')"

MsgBox cmd.CommandText

cmd.CommandType = adCmdStoredProc
cmd.Execute
=======================

The above works great as long as the pDocClass field does not contain an apostrophe. In the stored procedure, pDocClass is defined as @pDocClass char (40).
Following is the error I receive:
"Line 1: Incorrect syntax near '{'

Any help with handling an apostrophe in the CommandText above would be greatly appreciated!

Thanks,
aml