r.AbsolutePosition en ODBC ne fonctionne pas

Bonjour à tous,

Voici mon problème

r.AbsolutePosition en ODBC ne fonctionne pas et je voudrais pouvoir afficher
un ProgressBar

Ma solution a été de:

If r.AbsolutePosition <> adPosUnknown Then
ProgressBar.Visible = True
ProgressBar.Max = r.RecordCount
End If

Mais il existe t-il une autre façon???

Merci de vos réponse

J'ouvre ma base en Access ou ODBC et plus tard en SQLServeur

If DB.State = adStateClosed Then

Select Case strBaseDeDonnéeType
Case "ACCESS"
'Access
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &
strCheminBase & strNomBase
Case "ODBC"
'ODBC
DB.Open "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=surgest;Initial Catalog=" &
strCheminBase & strNomBase
Case "SQLServeur"
'DB.Open "Provider=SQLOLEDB;data Source=<name of your SQL
Server>;"
' DB.Open "Provider=SQLOLEDB;data Source=" & strCheminBase &
strNomBase
End Select

End If