If K = 0 Then
Me.lstResults.RowSource = "QpretrageI"
ElseIf K = 1 Then
Me.lstResults.RowSource = "QpretrageU"
End If