Private Sub searchparfum() Dim dt As New DataTable Dim ds As New DataSet ds.Tables.Add(dt) Dim da As New OleDbDataAdapter("select num from parfum", MaConnection) da.Fi