asignar a una variable resultado BindingSource

[benhur]

Saludos cordiales:

tengo una aplicacion en vb 2005 en donde consulto a una base (cod. resumido)

Private Const cs As String = "Data Source=(local);" & _
"Integrated Security=True;" & _
"Initial Catalog=dbcomercial"
Private BindingSource1 As Windows.Forms.BindingSource = New BindingSource

Using cn As SqlConnection = New SqlConnection(cs)
cn.Open()
Dim da As New SqlDataAdapter("SELECT * FROM USUARIO", cn)
Dim dt As New DataTable

Dim sql As String = " Select estatus From usuarios " & _
" Where password = '" & Me.PasswordTextBox.Text & "' " & _
" And usuario = '" & Me.UsernameTextBox.Text & "'"
da.Fill(dt)
BindingSource1.DataSource = dt

el problema es que quiero primero que quiero es saber si hay registros y luego recuperar los datos del BindingSource1 en variables.

en vb6 lo hacia con el rs.recordcount > 0 y rs!Campo para asignar ala variable.

les agradeceria su ayuda.