hegon, se entendi corretamente, no Formulário "frmCadastro" altere conforme abaixo, é referente a somente um CheckBox, tem de construir para todos:
Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
    With wsCadastro
        If Not IsEmpty(.Cells(indiceRegistro, colCargoDoContato)) Then
            Me.txtCodigoFornecedor.Text = .Cells(indiceRegistro, colCodigoDoFornecedor).Value
            Me.txtNomeEmpresa.Text = .Cells(indiceRegistro, colNomeDaEmpresa).Value
            Me.txtNomeContato.Text = .Cells(indiceRegistro, colNomeDoContato).Value
            Me.txtCargoContato.Text = .Cells(indiceRegistro, colCargoDoContato).Value
            Me.txtCidade.Text = .Cells(indiceRegistro, colCidade).Value
            Me.txtCEP.Text = .Cells(indiceRegistro, colCEP).Value
            Me.txtRegiao.Text = .Cells(indiceRegistro, colRegiao).Value
            
        
        'Retorna o Valor para o CheckBox referente a coluna "FLEXIVEL"
        If .Cells(indiceRegistro, chkDiscos).Value <> "SIM" Then
            Me.check_cano_mestre.Value = False
        Else
            Me.check_cano_mestre.Value = True
        End If
            
            
        End If
    End With
    Call AtualizaRegistroCorrente
End Sub
[]s
                                                                                                	Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
                                                 
	                                         
                    
                    	
                            Postado : 28/10/2012 7:09 am