SELECAO DE REGISTRO PELO COMBO

USUARIO.EXCLUIDOS 12/06/2005 12:23:16
#88498

Gente
ERRO 1
Estou usando a função abaixo para que quando eu clicar na letra A no combo0 por exemplo mande para o combo1 todos os clientes que começam com a eltra A mas ele manda todos os clientes cadastrados.

If comboletra.Text = "A" Then
'faz a busca pela letra A
letraA = "SELECT Nome FROM clientesfiliados WHERE Nome LIKE 'A*'"""
'limpa combo para receber nomes
combonome.Clear
'adiciona no combo os nomes no comvo cbmtodos
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
combonome.AddItem Data1.Recordset.Fields(0)
Data1.Recordset.MoveNext
Loop
Data1.Recordset.Close
'fim da busca
End If

ERRO2
A função abaixo estou sando para mostrar nos text's todos os dados dos respectivos clientes, em cada txt entra o dado do banco de dados mas não acontece nada, se puderem me ajudar ficaria grato

Dim Marca$
Data1.Recordset.Index = "ind_Nome"
Marca$ = Data1.Recordset.Bookmark
Data1.Recordset.Seek "=", comboletra
If Data1.Recordset.NoMatch Then
MsgBox C_Usuario & "!" & Chr(13) & "Nao encontrei estes dados.", 32, "Mensagem"
MsgBox C_Usuario & "!" & Chr(13) & "Obs: Este registro pode ter sido deletado. Atualize a lista.", 32, "Mensagem"
Data1.Recordset.Bookmark = Marca$
Screen.MousePointer = 0
Else
Nome.Text = Data1.Recordset.Fields(0)
sexo.Text = Data1.Recordset.Fields(1)
codigo.Text = Data1.Recordset.Fields(2)
classificacao.Text = Data1.Recordset.Fields(3)
endereco.Text = Data1.Recordset.Fields(4)
complemento.Text = Data1.Recordset.Fields(5)
bairro.Text = Data1.Recordset.Fields(6)
cidade.Text = Data1.Recordset.Fields(7)
estado.Text = Data1.Recordset.Fields(8)
pais.Text = Data1.Recordset.Fields(9)
cep.Text = Data1.Recordset.Fields(10)
Foneresidencial.Text = Data1.Recordset.Fields(11)
Fonecomercial.Text = Data1.Recordset.Fields(12)
celular.Text = Data1.Recordset.Fields(13)
nascimento.Text = Data1.Recordset.Fields(14)
profissao.Text = Data1.Recordset.Fields(15)
email.Text = Data1.Recordset.Fields(16)
obs.Text = Data1.Recordset.Fields(17)
End If
Estou trabalhando via DAO