Try
            SQLstr = ("SELECT DISTINCT P_Name, P_As, SchritteCount(SELECT COUNT(" & _
              "P_As) FROM Tabelle2) FROM Tabelle2")
            Mycn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data" & _
            "Source=" & sPfad & DbPw)
 
            Using cmd = New OleDbCommand(SQLstr, Mycn)
                Mycn.Open()
 
                Dim reader As OleDbDataReader = cmd.ExecuteReader()
                Dim dt = New DataTable
                dt.Load(reader)
 
                DataGridView5.DataSource = dt
                DataGridView5.Refresh()
                DataGridView5.ClearSelection()
                reader.Close()
                Mycn.Close()
            End Using
 
        Catch ex As Exception
            MessageBox.Show(ex.Message & " - " & ex.Source)
        End Try