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 SubSe alguem puder ajudar fico grato
Abraços



    Postagens
 Não informado
		

