Fórum Retornar resultado da busca #24280

     Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/ASPNET/databsp.mdb") 
        Dim cmd As New OleDb.OleDbCommand 
        Dim strSQL As String = "SELECT PRODUTO_ID, DESCRICAO_REDUZIDA, DESCRICAO_COMPLETA FROM PRODUTOS WHERE (PRODUTO_ID = @Produto)" 

        cmd.Connection = conn 
        cmd.CommandText = strSQL 
        cmd.Parameters.Clear() 
        cmd.Parameters.Add(New OleDb.OleDbParameter("@Produto", edtCodProduto.Text)) 
        conn.Open() 

        lblDescProd.Text = cmd.ExecuteReader.RecordsAffected 

 [b]   Dim Dtb As DataTable
        Dim Adp As New OleDb.OleDbDataAdapter(cmd)
        Adp.Fill(Dtb)[/b]

        conn.Close()