Bonjour à tous, j'ai un petit soucis pour récupérer la valeur max d'une colonne dans une base de donnée. Je bug et ne trouve pas la solution, malgré l'aide microsoft et gooooooogooooole

le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Public Sub Recup_dernier_comune(ByRef SerieC)
 
Dim conna As New ADODB.Connection
Dim sqla1 As New ADODB.Command
Dim orsa1 As New ADODB.Recordset
 
conna.Provider = "Microsoft.Jet.OLEDB.4.0"
conna.ConnectionString = LienBDD_carte
conna.Open()
 
sqla1.ActiveConnection = conna
sqla1.CommandText = "SELECT MAX(Num_serie) FROM Info_general"
orsa1.Open(sqla1)
 
SerieC = orsa1("Num_serie").Value
 
orsa1.Close()
orsa1 = Nothing
sqla1 = Nothing
 
conna.Close()
conna = Nothing
 
End Sub
l’erreur se produit sur la ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
SerieC = orsa1("Num_serie").Value
ça me remonte :
Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.
Si quelqu'un aurais la solution, je vous en remercie.