vba, how to form a table with checkbox

Title: User Access Query Input, User_ID(as text), Class(as list), Status(as checkbox) Output : User_ID, Class, Status

how to form a table with userID, Class including checkbox

my current code is:

 Sub CheckboxValue()
    Dim User-ID As String
    Dim Class As String
    Dim Status As Long

    If Me.Fitting Then
       strSQL= User-ID & ",'" & Class & "')"
       CurrentDB.Execute strSQL, dbFailOnError

       Me.[Subform control name here].Form.Requery
    End If

    cbvalue = ActiveSheet.Shapes("status").ControlFormat.Value
End Sub