Try With cmd .Connection = conn .CommandText = "Select * From Users" ds.Tables.Add(dt) Adapter.SelectCommand = cmd Dim cb = New OleDbCommandBuilder(Adapter) cb.QuotePrefix = "[" cb.QuoteSuffix = "]" Adapter.Fill(dt) DataDisplay.DataSource = dt.DefaultView .Parameters.Clear() End With Catch ex As Exception MsgBox(ex.Message) Finally Adapter.Dispose() dt.Dispose() ds.Dispose() cmd.Dispose() If conn IsNot Nothing Then conn.Close() End If End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)