Public Function Get_DataView(ByVal sSQL As String) As DataView
        Dim oDatatable As New DataTable
        Try
            oDatatable = Get_DataTable(sSQL)
            Get_DataView = oDatatable.DefaultView
        Catch ex As System.Exception
            Throw ex
        End Try
    End Function
 
    Public Function Get_DataTable(ByVal sSQL As String) As DataTable
        Dim oSqlDataAdapter As New OleDb.OleDbDataAdapter
        Dim oDatatable As New DataTable
        Dim oSQLCmd As New OleDb.OleDbCommand(sSQL)
        Try
            oSQLCmd.Connection = gcon_DB
            oSqlDataAdapter.SelectCommand = oSQLCmd
            oSqlDataAdapter.Fill(oDatatable)
            Get_DataTable = oDatatable
            oSQLCmd.Connection = Nothing
            oSqlDataAdapter.Dispose()
            oSQLCmd.Dispose()
        Catch ex As System.Exception
            Throw ex
        Finally
        End Try
    End Function

 Public dv_Select As DataView = Nothing
 Private Sub frm_select_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        dv_Select = Get_DataView("Select Con_Compare as Vergleichen," & _
        "Con_Anzeige as Eigenschaft_DE, Con_Name as Eigenschaften_Original From" & _
        "OL_ContactProps")
        grd_Select.DataSource = dv_Select
 
    End Sub