(Resolvido) Inserir dados numa textBox através do BD

[Gabriel Jardim]

cod_func = txtLanMatricula.Text     ' >>> Recebe o que é digitado
    NOME_FUNC = txtLanNome.Text    '  >>> Recebe direto do Banco de Dados

    If Len(txtLanMatricula.Text) > 0 Then
        lblAtencao1.Visible = False
    End If
    If Len(txtLanMatricula.Text) = 5 Then
        sql = "SELECT NOME_FUNC FROM TB_FUNCIONARIO"
        sql = sql + " WHERE  COD_FUNC = '" & cod_func & "'"
        Rs.Open sql
        Rs.MoveFirst
            Do While Not Rs.EOF
                NOME_FUNC Rs.Fields("NOME_FUNC").Value
                Rs.MoveNext
            Loop
    Else
         MsgBox "Matrícula Inexistente"
     End If

Está dando erro na linha: NOME_FUNC Rs.Fields("NOME_FUNC").Value

mais precisamente em NOME_FUNC, no momento em que digito 1 número.

o erro é:

Compile Error

Expected sub, function, or property

O que quero fazer?

Assim que o cara digita a matrícula (obrigatoriamente com 5 dígitos) ele entra no IF Then, faz a leitura no banco, armazena na recordset e depois joga na TextBox.

No que estou errando?

Podem me ajudar?

Agradecido desde já!

Editado Outubro 30, 2010 por Gabriel Jardim

[Gabriel Jardim]

cod_func = txtLanMatricula.Text     ' >>> Recebe o que é digitado
    If Len(txtLanMatricula.Text) > 0 Then
        lblAtencao1.Visible = False
    End If
    If Len(txtLanMatricula.Text) = 5 Then
        sql = "SELECT NOME_FUNC FROM TB_FUNCIONARIO"
        sql = sql + " WHERE  COD_FUNC = '" & cod_func & "'"
        Rs.Open sql
        Rs.MoveFirst
            Do While Not Rs.EOF
                txtLanNome.Text = Rs.Fields("NOME_FUNC").Value
                Rs.MoveNext
            Loop
     End If

Alterei o código e funcionou.

Tirei a variável coloquei o textbox no lugar, mas percebi que tinha esquecido também do sinal de igual, pois eu etava colocando sem rsrsr acontece.

Vlw a todos ai pela força.