[Vb 2008]record in meno in datagridview

[nestaole]

ragazzi mi inserisce sempre un record in meno come mai?

 Dim ObjCommand As OleDbCommand
        Dim Ultimo_ID
        'Connessione
        cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= DbCarrara.accdb"
        cnn.Open()
        ObjCommand = New OleDbCommand("SELECT TOP 1 * FROM Cliente ORDER BY IDcliente DESC", cnn)
        Ultimo_ID = ObjCommand.ExecuteScalar()
        'Query
        sql = "SELECT Cliente.Cognome, Cliente.Nome, Cliente.Indirizzo, Cliente.Comune, Cliente.[Cognome Defunto], Cliente.[Nome Defunto], Cliente.[Zona Interrato], Cliente.[Posizione Nro], Servizio.NomeServizio, Servizio.Importo FROM Servizio INNER JOIN (Cliente INNER JOIN Cliente_Servizio ON Cliente.IDcliente = Cliente_Servizio.Cliente) ON Servizio.CodServizio = Cliente_Servizio.Servizio WHERE Cliente.IDcliente =" & Ultimo_ID
        'Dataset
        dts = New DataSet("DbCarrara")
        'DataAdapter
        dtp = New OleDb.OleDbDataAdapter(sql, cnn)
        dtp.Fill(dts, "DbCarrara")
        'BindingSource
        bds = New BindingSource()
        bds.DataSource = dts
        bds.DataMember = "DbCarrara"
        'DataGridView
        DataGridView1.DataSource = bds
        cnn.Close()

    End Sub