请教一个小问题（关于recordset）

jifeng1123

如何提取recordset 中的某个值

DIM STR string
Dim db As Database
Dim rstdsp As Recordset
Set db = CurrentDb()
Set rstdsp = db.OpenRecordset("select SELECT DISTINCT dept_Id FROM Dept dept_Name='" & Me!部门名称 & "'")
rstdsp中有01，02，03，我应该如何提取02的值，并将它赋予 str[em18]