Public Function GetRecords(ByVal SQL As String, ByVal ConnectionString As String) As DataView
        Dim oCon As New OleDbConnection(ConnectionString)
        Dim objDataAdapter As New OleDbDataAdapter(SQL, oCon)
        Dim objDataSet As New DataSet()
        Try
            oCon.Open()
            objDataAdapter.Fill(objDataSet)
            oCon.Close()

            Return objDataSet.Tables(0).DefaultView
        Catch e As Exception
            Throw New Exception(e.Message & vbNewLine & e.Source & ":-GetRecords")
        End Try
    End Function