Value is not getting inserted into clearance ( from strAccess to strClearance) Help please

Where is my mistake
Thank you
Attach Code

<%

Dim strAccess
    strClearance = client
    If Request.Form("Access") = "realestatesales" Then
    strAccess = realtor
     End If

set cmdInsert = Server.CreateObject("ADODB.Command")
cmdInsert.ActiveConnection = MM_RFSOnline_STRING
cmdInsert.CommandText = "INSERT INTO personaldata (username, password, clearance, firstname, lastname, spousename, spouselastname, phone, cell, address, city, state, zip, mailaddress, mailcity, mailstate, mailzip) VALUES ('" + Replace(cmdInsert__strEmailAddress, "'", "''") + "', '" + Replace(cmdInsert__strPassword, "'", "''") + "', '" + Replace(cmdInsert__strClearance, "'", "''") + "', '" + Replace(cmdInsert__strFirstName, "'", "''") + "', '" + Replace(cmdInsert__strLastName, "'", "''") + "','" + Replace(cmdInsert__strSpouseName, "'", "''") + "','" + Replace(cmdInsert__strSpouseLastName, "'", "''") + "','" + Replace(cmdInsert__strPhone, "'", "''") + "', '" + Replace(cmdInsert__strCell, "'", "''") + "', '" + Replace(cmdInsert__strAddress, "'", "''") + "', '" + Replace(cmdInsert__strCity, "'", "''") + "', '" + Replace(cmdInsert__strState, "'", "''") + "', '" + Replace(cmdInsert__strZIP, "'", "''") + "', ' " + Replace(cmdInsert__strMailAddress, "'", "''") + "', '" + Replace(cmdInsert__strMailCity, "'", "''") + "',' " + Replace(cmdInsert__strMailState, "'", "''") + "', '" + Replace(cmdInsert__strMailZIP, "'", "''") + "') "
cmdInsert.CommandType = 1
cmdInsert.CommandTimeout = 0
cmdInsert.Prepared = true
cmdInsert.Execute()
%>