Pb de recordset

BONNEE A TOUS
Kikoo, j'espère que ça va !!! Moi j'ai un souci :


j'ai fait un rs.recordcount 
je l'affiche dans un msgbox
il m'affiche -1  alor kil ya un enregistrement
je comprend pas pourquoi !!



    Set rsEntréesConso1 = New ADODB.Recordset
    rsEntréesConso1.Open "LIVRAISON", cn, adOpenDynamic, adLockOptimistic
   
   
    Frame1.Enabled = True

    Dim i As Integer
    i = rsEntréesConso1.RecordCount
    MsgBox (i)
    i = i + 1
   
    If i <= 0 Then
        txtIdLivr1.Text = 1
    End If
   
    'on indente l'identifiant de la livraison
    If i >= 1 Then
        'Renvoie l'identifiant maximal
        Dim rsMaxId As New ADODB.Recordset, reqMaxId As String
       
        reqMaxId = "select max(ID_LIVRAISON) as IdMax from LIVRAISON"
        rsMaxId.Open reqMaxId, cn, adOpenStatic, adLockOptimistic
        txtIdLivr1.Text = rsMaxId!IdMax + 1
       
        rsMaxId.Close
    End If



Merci de votre aide !!!@ + !!

ps :

G enle vé ca (en rouge)
    Dim i As Integer
    i = rsEntréesConso1.RecordCount
    MsgBox (i)
    i = i + 1

  @ +