Bom Dia
Treze, muito obrigado pela dica, é que eu utilizo muito este tipo de conexão abaixo:
Set RsVrValor = conn.Execute("Select valor_transfer From oc_item Where num_oc = '" & txt_num_oc.Text & "'")
Então eu utilizei como descrito abaixo para este recordcount e deu certo:
Dim SqlConNumOc As String
Set RsConNumOc = New ADODB.Recordset
SqlConNumOc = "select * from oc_item where num_oc = '" & txt_num_oc.Text & "'"
RsConNumOc.Open SqlConNumOc, ConOrdem, adOpenKeyset, adLockOptimistic
