Maestro 5.0 Mudar Combo Usuario para Caixa de Texto

Boa noite a todos gostaria de mudar (do aplicativo Mastro5.0 do professor Avelino) a combo Usuario por uma Caixa de Texto.

Obrigado a todos.

Boa tarde a todos, O mestre Avelino escreveu os códigos para mudar (no Maestro 5.0) a cbo Usuário por TxUsuario, a seguir:
rivate Sub btok_Click()
Dim k As Integer, p

'verifica se o usuário existe na tabela
If DCount("*", "tblUsuários", "usuario = """ & Me!TxUsuario & """") > 0 Then
' se usuário existe, passa os dados da tabela para a matriz p
p = Split(DLookup("idUsuario & '|¦|' & usuario & '|¦|' & senha", "tblusuários", "usuario=""" & Me!TxUsuario & """"), "|¦|")
' verifica se a senha está correta
If StrComp(Me!senha, fncCrip(CStr(p(2)), 102030), vbBinaryCompare) = 0 Then

'repassa a identificação do usuário para a variável login
Login.id = p(0) 'IdUsuário
Login.Usuario = p(1) 'Nome do usuário
'esconde o formulário login
Me.Visible = False
DoCmd.OpenForm "frm_Principal"
'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(CStr(p(1)))

'--------------------------------
'Limpar campos do form login
'--------------------------------
Me!TxUsuario = Null: Me!senha = Null:
Me!TxUsuario.SetFocus

If nlogoff = False Then
Call fncBloquear(0, 0) 'Carrega Permissões na variável VarPer
nlogoff = True
End If
DoCmd.OpenForm "frm_Principal"
Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha....", vbInformation, "Aviso"
Me!senha = Null
Me!senha.SetFocus
End If
Else
MsgBox "Usuário não consta na lista...", vbInformation, "Aviso"
Exit Sub
End If

End Sub