Erro ao carregar dados da tabela nos campos do formulário !

Olá a todos,eu estou tentando mostrar os dados da tabela no formulário para depois poder estar movendo para o próximo/primeiro/anterior/último mas está dando um erro:

/applications/core/interface/imageproxy/imageproxy.php?img=http://img82.imageshack.us/img82/6533/probcq9.th.png&key=0edd72939ec475d5ddb43767121bc643f200464aa047ae5812148adda9e29e13" alt="Imagem Postada" />/applications/core/interface/imageproxy/imageproxy.php?img=http://img82.imageshack.us/images/thpix.gif&key=cdf83c8b668b79352c1ae1c1762c74229eec46815bd79726b9f95a7cbf4d9e21" alt="Imagem Postada" />

o código está aí:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
'Abre a conexão
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Adm\Meus documentos\PROJETOS\VB\CONTROLE.mdb;"
'Abre o recordset
rs.CursorLocation = adUseClient

	rs.Open "SELECT * FROM Clientes", cn, adOpenKeyset, adLockOptimistic, adCmdText
	If rs.BOF Or rs.EOF Then
 MsgBox "Não encontrou nenhum registro."
	Else
 fuCarregaRegCli
	End If

End Sub
Public Sub fuCarregaRegCli()
Dim sql As String
Dim codigo As Long

codigo = Val(txtCodigo)
'Abre a conexão
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Adm\Meus documentos\PROJETOS\VB\CONTROLE.mdb;"
'Define a instrução sql

	sql = "SELECT * FROM CLIENTES WHERE Codigo = " & codigo
	'Abre o recordset
	rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly
	txtCodigo = rs(0)
	txtNome = rs(1)
	txtCNPJ = rs(2)
	mskNascimento = rs(3)
	mskCep = rs(4)
	txtBairro = rs(9)
	txtEndereco = rs(5)
	txtTelefone = rs(6)
	txtCelular = rs(7)
	txtObs = rs(8)
	txtVisor = "Registros: " & rs.AbsolutePosition & "/" & rs.RecordCount
	rs.Close

End Sub
Por gentileza alguém pode me ajudar?