ADO MSSQL BOOL PARAMETER

Dim BOOLFIELD

BOOLFIELD = 0

            SQL = ""

            SQL = SQL & vbCrLf & "UPDATE"

            SQL = SQL & vbCrLf & "TABLE"

            SQL = SQL & vbCrLf & "SET"

            SQL = SQL & vbCrLf & "BOOLFIELD = ?"

            With objCmd

                .ActiveConnection = dbConn

                .CommandType = adCmdText

                .CommandText = SQL

                .Parameters.Append .CreateParameter("@"BOOLFIELD", adBoolean, adParamInput, 1, BOOLFIELD) 

                .Execute, ,adExecuteNoRecords

            End With