Boa tarde pessoal, criei uma rotina padrao para exibir dados de uma tabela atualizando o form, mas dá o seguinte erro:
ERRO 5 - não existem dados para a linha ou coluna.
a linha existe se não nao comecaria a rotina, segue o codigo da rotina.
-----
Public Sub EncheForm(ByRef Frm As Form)
        StrLer = [Ô]SELECT * FROM Fornecedores WHERE CNPJ =[ô][Ô] & MskCNPJ.Text & [Ô][ô][Ô]
        Try
            ConexaoLer = New OleDbConnection(strConexao)
            ConexaoLer.Open()
            daLer = New OleDbDataAdapter(StrLer, ConexaoLer)
            dtLer = New DataTable
            daLer.Fill(dtLer)
            If dtLer.Rows.Count > 0 Then
                ComandoLer = ConexaoLer.CreateCommand
                ComandoLer.CommandText = StrLer
                ComandoLer.Connection = ConexaoLer
                drLer = ComandoLer.ExecuteReader
                Dim A, B
                For A = 0 To drLer.FieldCount - 1
                    For B = 0 To Frm.Controls.Count - 1
                        If Frm.Controls(B).tag = drLer.GetName(A).ToString Then
                            [ô]MsgBox(Frm.Controls(B).tag & [Ô]  =  [Ô] & drLer.GetName(A).ToString)
                            Frm.Controls(B).text = drLer.GetValue(A).ToString
                        End If
                    Next
                Next
            End If
            ConexaoLer.Close()
            ComandoLer.CommandText = [Ô][Ô]
            ComandoLer.Connection.Close()
        Catch ex As Exception
            MsgBox([Ô]Erro n.º [Ô] & Err.Number & [Ô] - [Ô] & ex.Message, vbCritical, [Ô]Erro![Ô])
            ConexaoLer.Close()
            ComandoLer.CommandText = [Ô][Ô]
            ComandoLer.Connection.Close()
        End Try

    End Sub

o campo é tipo texto.
se puderem me ajudar

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  

Sim, mas já achei a solução:
drLer.Read()
faltou isso, kkkkkkkkkk
obrigado.

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)