Asignar valor de consulta a una variable

[oso_reyes]

Hola amigos, necesito su ayuda, quiero agregar un valor de una consulta a una variable, soy nuevo en vba y necesito su ayuda, lo he intentado realizar de la soguiente manera:

Dim tipoperiodo As String
Dim perio As String
Dim eje As String

tipoperiodo = Me.tipo_periodo.Value
perio = periodo.Value
eje = ejercicio.Value

Dim rst As Recordset
Dim afecta As Variant
Dim D As Integer
Dim afe As Boolean

afecta = "SELECT dbo_nom10002.afectado FROM dbo_nom10002 WHERE (((dbo_nom10002.idtipoperiodo)=" & tipoperiodo & ") AND ((dbo_nom10002.numeroperiodo)=" & perio & ") AND ((dbo_nom10002.ejercicio)=" & eje & "))"
Set rst = CurrentDb.OpenRecordset(afecta, dbOpenSnapshot)

afe = rst.RecordCount


If afe = True Then
MsgBox "Soy Verdadero"

Else
MsgBox "Soy Falso"