Acesso de campos de uma tabela em Visual Basic

[LFM01 0]

Tenho alguma experiência em VBA (MS Access) e estou iniciando em Visual Basic e não sei como manipular dados. Gostaria de saber como posso carregar dados de uma tabela e fazer um loop de avaliação destes dados.

Considerando que eu tenha uma tabela T001_Usuários em MS Access com campos: UsuarioID, Usuario e Senha, e um campo de usuário no formulário (txtUsuario), para fazer um loop de avaliação do usuário em VBA, eu faria algo do tipo:

 

Dim strUsuarios as Object

Dim UsuarioOK as boolean

Set dB = Currentdb()

UsuárioOK = False

Set strUsuarios = db.openrecordset(“T001_Usuarios”)

Do While Not strUsuarios.EOF

If strUsuarios(“Usuario”) = Me.txtUsuario then

UsuarioOK = True

Exit If

End If

strUsuarios.MoveNext

Loop

 

Minha dúvida é quais seriam as linhas de código para montaR um procedimento similar em Visual Basic considerando que se tenha uma dataset para a tabela e em especial, qual seria a sintaxe para definir os objetos e como acessar os cada campo existente na tabela.

 

Acredito que a solução envolva o método GetData do TableAdapter mas não sei como montar os comandos.

 

Grato.

[Rafael Mitsunaka 11]

http://www.macoratti.net/vbn_dts1.htm