Segue o que fiz:
Public Sub New(ByVal Usuario As String) Dim cn As SqlConnection 'cn ----- Dim conexao As New System.Data.SqlClient.SqlConnection Dim cnstr As String = Configuration.ConfigurationSettings.AppSettings("conexao") cn = New SqlConnection(cnstr) Dim vSql As String vSql = "Select Id_Usuario From TBLUsuario Where Login = '" & Usuario & "'" DA = New SqlDataAdapter(vSql, cn) DS = New DataSet DA.Fill(DS, "TBLUsuario") Dim dv As New DataView(DS.Tables("Id_usuario")) vUsuario = ??????? End Sub
Se alguem puder ajudar fico grato
Abraços