Friend Function SqlDatenHolen(ByVal sQuery As String) As DataTable
    Dim dt As New DataTable
 
    Using conn As New SqlClient.SqlConnection(ConStr)
        Try
            conn.Open()
            Dim oCommand As New SqlClient.SqlDataAdapter(sQuery, conn)
            oCommand.Fill(dt)
        Catch ex As Exception
            MsgBox("Datenbankzugriff auf SQL-Server fehlgeschlagen.", True)
        Finally
            conn.Close()
        End Try
    End Using
 
    Return dt
End Function