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

