Me alegro haberte sido de ayuda.
Luego si nos ponemos un poco "puristas" podriamos "pulir" un poco ese código.
Por ejemplo si lo que buscas en tu BD es "un solo campo" en lugar de un dataset deberías buscar una variable string...
Luego tu código (suponiendo que aún buscas un dataset)
Dim VariableString As String
If obj.fx_USUARIO(Me.UsernameTextBox.Text, Me.PasswordTextBox.Text).Rows.Count > 0 Then
VariableString = CStr(obj.fx_USUARIO(Me.UsernameTextBox.Text, Me.PasswordTextBox.Text).Rows(0).Item(0))
Me.TextBox1.Text = VariableString
End If
Puliéndolo un poco podría verse así:
Dim VariableString As String
Dim sNombre As String= Trim(Me.UsernameTextBox.Text)
Dim sPass as String= Trim(Me.PasswordTextBox.Text)
Dim unDs as new Dataset 'Estoy en duda si aquí va o no el 'new'
unDs =obj.fx_USUARIO(sNombre, sPass)
If unDs.tables(0).Rows.Count >0 then
VariableString = Cstr(unDs.tables(0).Rows(0).Item(0))
Me.TextBox1.Text = VariableString
'O directamente si no existiera VariableString sería así:
Me.TextBox1.Text = Cstr(unDs.tables(0).Rows(0).Item(0))
End if