comboBox no cargan datos

Question

buen dia!

Bueno tengo 3 comboBox conectados a una base de datos en sql server2008 donde cada uno de los comboBox en un tipo de producto y los tres se llaman "Proclas1, Proclas2 y Proclas3" los 3 tienen datos y si los puedo seleccionar y si se guarda en la base de datos, mi problema es que cuando le doy aceptar para cerrar ese formulario, cuando lo vuelvo a abrir el primer comboBox(ProClas1) aparece vacio como si no hubiera seleccionado ningun dato, aunque en la base de datos si se llena el campo cada combo box se llama cboGrupo1, cboGrupo2 y cboGrupo3

mi codigo para modificarlos es:

Dim I As Integer
        Dim J As Integer
        On Error Resume Next
        tbAux2.Close()
        On Error GoTo 0
        If lstProd.Text <> "" Then
            tbAux2.Open("Select ProductoClave, ProDescripcion, ProPrecio, ProCantporCaja, ProTipo, ProDesc, ProCosto, ProClas1, ProClas2, ProClas3, ProImagen1, ProIamgen2, ProImagen3 from Productos where ProductoClave='" & Trim(Mid(lstProd.Text, 1, 20)) & "'", CnCP, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
            
            I = 0
            J = cboGrupo1.Items.Count - 1
            cboGrupo1.Text = cboGrupo1.Items.Item(I)
            Do
                If Trim(UCase(cboGrupo1.Items.Item(I))) = Trim(UCase(tbAux2("ProClas1").Value.ToString)) Then
                    cboGrupo1.Text = cboGrupo1.Items.Item(I)
                    Exit Do
                End If
                I = I + 1
                If I > J Then
                    Exit Do
                End If
            Loop

            I = 0
            J = cboGrupo2.Items.Count - 1
            cboGrupo2.Text = cboGrupo2.Items.Item(I)
            Do
                If Trim(UCase(cboGrupo2.Items.Item(I))) = Trim(UCase(tbAux2("ProClas2").Value.ToString)) Then
                    cboGrupo2.Text = cboGrupo2.Items.Item(I)
                    Exit Do
                End If
                I = I + 1
                If I > J Then
                    Exit Do
                End If
            Loop

            I = 0
            J = cboGrupo3.Items.Count - 1
            cboGrupo1.Text = cboGrupo3.Items.Item(I)
            Do
                If Trim(UCase(cboGrupo3.Items.Item(I))) = Trim(UCase(tbAux2("ProClas3").Value.ToString)) Then
                    cboGrupo3.Text = cboGrupo3.Items.Item(I)
                    Exit Do
                End If
                I = I + 1
                If I > J Then
                    Exit Do
                End If
            Loop

            I = 0
            J = cboTipo.Items.Count - 1
            If I <= J Then
                Do While I <= J
                    If Trim(cboTipo.Items.Item(I)) = Trim(tbAux2("ProTipo").Value) Then
                        cboTipo.Text = cboTipo.Items.Item(I)
                        Exit Do
                    End If
                    I = I + 1
                Loop
            End If
            grpProductos.Visible = False
            grpCaptura.Visible = True
            txtClave.Enabled = False
        Else
            MsgBox("Necesita Seleccionar un Producto.", MsgBoxStyle.Critical, "ERROR")
        End If

espero me puedan ayudar SALUDOS!!