Try If CON.ConnectionState.Closed Then CON.Open() End If Dim ds As New DataSet Dim da As New OleDbDataAdapter Dim dv As New DataView Dim strqurey As String = "Your query" ds = New DataSet da = New OleDbDataAdapter(strqurey, CON) da.Fill(ds, "tbl_orders") dv = New DataView(ds.Tables("tbl_orders")) Me.dgvorders.DataSource = Nothing Me.dgvorders.DataSource = dv CON.Close() Catch ex As Exception MsgBox(ex.Message) End Try