ошибка при запросе с использованием RecordSet

Есть таблица.. хочу сделать обычный запрос. Вот код:

Private Sub Кнопка5_Click()
Dim mystr As String
mystr = "SELECT [Фамилия] FROM [SOTRUDNIKI];"
Dim rec As ADODB.Recordset
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
rec.Open mystr, con, adOpenForwardOnly, adLockPessimistic

нажимаю на кнопку и вылетает ошибка: Run-time error '91'
Object variable or With block variable not set.
PS. Может здесь какая то глупость.. прошу строго не судить:)

перед rec.Open добавьте

Set rec = New ADODB.Recordset

или объявляйте как

Dim rec As New ADODB.Recordset

Все получилось! Спасибо большое!