Access - Duda Codigo Validar Entrada

Private Sub SaveHours_Click()

Dim stDocName As String

Dim stLinkCriteria As String

Dim GradeLog As String

Dim GradeTask As String

GradeTask = Me.Text36.Value   ' El valor lo selecciona de un cuadro de texto

GradeLog = Me.List40.Column(1)  'El valor lo selecciona de una consulta pero sale error Null siempre pero la consulta en el formulario sale el resultado que debe mostrar

If GradeLog = "" Then   ' al ser una consulta, el primer registro estara vacio

    'If GradeTask = "X" Then  ' si es el primer registro e igual a X abre el formulario

    stDocName = "GradeTeamWorkedDefinition"

    'stLinkCriteria = "[LogReportID]=" & Forms!LogReportManagement!LogReportID.value

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    'Else   'si es el primer registro y diferente de X ejecutara otra sentencia por definir

        ' Sin importancia de momento

    'End If

Else

    If GradeLog = GradeTask Then   ' si no es el primer registro, compara que la seleccion coincide con lo que se ha introducido previamente y ejecuta

        DoCmd.RunCommand acCmdSaveRecord

        DoCmd.RunCommand acCmdRecordsGoToNew

        Forms!LogReportManagement.WorksLog_subform!Combo30.Requery

        Forms!LogReportManagement.WorksLog_subform!List40.Requery

    Else

        MsgBox "Selected Task is Different Grade from Log Grade!"

    End If

End If

End Sub