ROTINA PARA MOSTRAR DADOS DA TABELA

DAMASCENO.CESAR 13/02/2013 14:02:29
#419197

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