Consulta no toma el primer valor SQL .NET

[khryztall]

Buenas noches amigos;

Quisiera por favor me ayudaran en el siguiente problema:

Tengo un ListView y como es lógico declaro columnas y en el momento de llenar los datos hago una consulta de la siguiente manera:

Código .NET:

Try
            sql = "SELECT * FROM registro_variables;"
 
            Dim comandoSQL As New OdbcCommand(sql, conexionBD)
            Dim resultadoSQL As OdbcDataReader = comandoSQL.ExecuteReader()
 

En el caso de haber resultados la consultado pregunta por ellos y comienza a llenar el listview de la siguiente manera:

Código .NET:

If (resultadoSQL.Read) Then
                Dim i As Integer
                Dim aux As Integer
                i = 0
 
                While resultadoSQL.Read
                    ListViewVariables.Items.Add(resultadoSQL(0))
                    For aux = 1 To resultadoSQL.FieldCount - 1
                        ListViewVariables.Items(i).SubItems.Add(resultadoSQL(aux))
                        MsgBox(resultadoSQL(aux))
                    Next aux
                    i = i + 1
                End While
            Else
                MsgBox("no se encontraron resultados")
            End If
 

y Finaliza con la captura en caso de error:

Código .NET:

Catch ex As OdbcException
 
            'SE MUESTRA ERROR DE CONEXION CON LA BASE DE DATOS
            MsgBox(ex.Message)
 
        End Try
 

En el momento de mostrar la consulta solo me muestra a partir del segundo ítem de la consulta, me explico los ítems dentro de la tabla están numerados con un index autoincremental y al mostrar los resultados se muestra desde el index=2 en lugar de mostrar desde el index=1.

He intentado mostrando los resultados con un msgbox y efectivamente la consulta no toma el primer resultado, no se el porque de esto, por favor necesito su colaboración.

el código completo de la función seria así:

Código .NET:

'LIBRERIAS DE IMPORTACION DE ODBC PARA CONEXION DE BASE DE DATOS
Imports System.Data
Imports System.Data.Odbc
 
Public Class Form08_ConfigPistas
 
    Private Sub Form08_ConfigPistas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'FORMATO DEL LISTVIEW
        ListViewVariables.Clear()
        ListViewVariables.View = View.Details
        ListViewVariables.Columns.Add("Index", 50, HorizontalAlignment.Right)
        ListViewVariables.Columns.Add("Var PLC", 120, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Var APP", 120, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Tipo", 100, HorizontalAlignment.Left)
        ListViewVariables.Columns.Add("Comentario", 200, HorizontalAlignment.Left)
 
        Dim sql As String
 
        Try
 
            'SE BUSCA AL USUARIO EN EL SISTEMA
            sql = "SELECT * FROM registro_variables;"
 
            Dim comandoSQL As New OdbcCommand(sql, conexionBD)
            Dim resultadoSQL As OdbcDataReader = comandoSQL.ExecuteReader()
 
            If (resultadoSQL.Read) Then
                Dim i As Integer
                Dim aux As Integer
                i = 0
 
                While resultadoSQL.Read
                    ListViewVariables.Items.Add(resultadoSQL(0))
                    For aux = 1 To resultadoSQL.FieldCount - 1
                        ListViewVariables.Items(i).SubItems.Add(resultadoSQL(aux))
                        MsgBox(resultadoSQL(aux))
                    Next aux
                    i = i + 1
                End While
            Else
                MsgBox("no se encontraron resultados")
            End If
 
        Catch ex As OdbcException
 
            'SE MUESTRA ERROR DE CONEXION CON LA BASE DE DATOS
            MsgBox(ex.Message)
 
        End Try
    End Sub
End Class