Recordset trava ao tentar ler dados do SQL Server

Eu criei uma conexão com SQL e importei minhas tabelas de lá para o Access essa TBL_GERARCARTAS_CORPO por exemplo ela está no servidor SQL Server Express 2008, porém quando utilizo o Recordset pra fazer uma contagem de registros a tela simplesmente trava.

Dim rs As Recordset
Dim strCount As Integer
strCount = 1


Set rs = CurrentDb.OpenRecordset("SELECT * FROM TBL_GERARCARTAS_CORPO WHERE carta =" & Me.carta & " and periodo =" & Me.periodo & "")
rs.MoveFirst
Do While Not rs.EOF
With rs
strCount = strCount + 1
End With
rs.MoveNext
Loop
Set rs = Nothing
rs.Close

Me.nroitem.Value = strCount

Mizael,
Tá um pouco confuso.
Você criou uma conexão?
Qual? ODBC?
Ou apenas vinculou as tabelas do SQL no Access?

[]'s

FIM