consultas via Vba

Olá pessoal, estou aprendendo agora como funciona este mundo de VBA no access e gostaria da ajuda de vocês, aprendi a fazer uma consulta pelo código por um tutorial no youtube, só que agora eu gostaria de criar um consulta pelo nome da pessoa se possível seria apenas as iniciais, teria como vocês me ajudarem, o código vba que consigo realizar a consulta seria este:

Private Sub cmd_consultar_Click()
   If txtcodigo <> "" Then
       comando = "Select * From tbl_Funcao Where codigo=" & txtcodigo
       valida_selecao
           If dataset.RecordCount <> 0 Then
           txtnome = dataset("nome")
           txtfuncao = dataset("funcao")
       Else
           MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
       End If
   Else
       MsgBox ("Nescessário informar o nome para efetuar uma consulta"), vbInformation + vbOKOnly, ("Nome Nescessário")
   End If
   
   
End Sub

Como altero isso para Nome?
Obrigado a todos e desde já agradeço a vocês
Fiquem com Deus

Ola;

Está a fazer isso no Ms Access ?

sim, pelo vba de um formulário do access

Eu trato esse código aqui para você ver como funciona o Recordset.

O simples é isto;

Código:

Private Sub cmd_consultar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tbl_Funcao WHERE codigo=" & Me.txtcodigo.Value)

  If rs.RecordCount > 0 Then
          Me!txtnome.Value = rs("nome")
          Me!txtfuncao.Value = rs("funcao")
      Else
          MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
    End If
   
 rs.Close: Set rs = Nothing
 db.Close: Set db = Nothing
End Sub

Ou a pedir pelo Nome;

Código:

Private Sub cmd_consultar_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strPesquisa As String

strPesquisa = ""
strPesquisa = InputBox("Qual o Nome ?", "Pesquisa", "teste", 1800, 3000)

  If strPesquisa <> "" Then
 
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tbl_Funcao WHERE nome Like '*" & strPesquisa & "*'")

  If rs.RecordCount > 0 Then
          Me!txtnome.Value = rs("nome")
          Me!txtfuncao.Value = rs("funcao")
      Else
          MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
    End If
  Else
 Exit Sub
End If

 rs.Close: Set rs = Nothing
 db.Close: Set db = Nothing
End Sub

Nossa, Realmente Perfeito!!, Muito Obrigado Pela sua ajuda e que Deus lhe abençoe!

Amigo, caso eu possuo dois registros com as mesmas iniciais como pode ser feito

por exemplo eu tenho no campo nome

Bernard didini
Bernard Weger

caso eu escreva Bernard somente, teria como aparecer os dois?
Obrigado

Até teria como, mas repare que você vai enviar o registo encontrado para uma caixa de texto, ae não poderia ficar os dois;

Me!txtnome.Value = rs("nome")

Sim, isso que eu estava pensando

Eu teria que fazer com que ele crie dois registros e caso eu queira mudar eu passava pelas setas, teria alguma coisa dessa forma?